Есть ответ 👍

Pascalabc.net help please если можно то сделайте по простому после ярмарки прошло много месяцев, городок разрастался и прибыли от торговли кроликами уже стало не хватать. вы поняли, что скоро для города начнется эра торговли, и чтобы быть готовым к ней, вы пошли получать дополнительное образование. теперь вам предстоит решить итогового экзамена. состоит в следующем: вводится число х, вы должны найти все делители данного числа и выписать их в строку через пробел. формат входных данных вводится целое число х (1 < = x < = 1000000) формат выходных данных выводится строка с числами, являющимися делителями х примеры входные данные 6 выходные данные 1 2 3 6

300
500
Посмотреть ответы 2

Ответы на вопрос:


// 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
vs12
4,5(75 оценок)

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.

Популярно: Информатика