Pascalabc.net help please если можно то сделайте по простому после ярмарки прошло много месяцев, городок разрастался и прибыли от торговли кроликами уже стало не хватать. вы поняли, что скоро для города начнется эра торговли, и чтобы быть готовым к ней, вы пошли получать дополнительное образование. теперь вам предстоит решить итогового экзамена. состоит в следующем: вводится число х, вы должны найти все делители данного числа и выписать их в строку через пробел. формат входных данных вводится целое число х (1 < = x < = 1000000) формат выходных данных выводится строка с числами, являющимися делителями х примеры входные данные 6 выходные данные 1 2 3 6
300
500
Ответы на вопрос:
// pascalabc.net 3.3 begin var x: =readinteger; range(1,x+1,1).foreach(y-> if x mod y=0 then write(y,' ')); end. пример: 20
Var i,n,k,a: integer; begin writeln('введите кол-во районов'); readln(n); writeln('введите кол-во жителей для каждого района'); for i: =1 to n do begin readln(a); if a< 70000 then k: =k+1; end; writeln('кол-во районов,в которых проживает не больше 70000 жителей=',k) end.
Популярно: Информатика
-
asimagasanova13.04.2020 11:03
-
АхМеД223308.07.2020 07:12
-
Гонщик00501.06.2021 06:29
-
weri817.06.2022 07:42
-
rinat050124.01.2023 19:38
-
kristinabuslae24.02.2021 04:27
-
supersuperolga107.06.2022 15:10
-
Неко16326.10.2021 19:23
-
sahabg13.09.2021 15:24
-
MichiChi14.12.2021 16:32