Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число).
Входные данные
Вводится натуральное число x
Выходные данные
Выведите все делители числа x
Примеры
входные данные
7
выходные данные
1 7
входные данные
21
выходные данные
1 3 7 21

Ответ оставил Гость

Var x,i:integer;
begin;
readln(x);
for i:=1 to x do
if x mod i=0 then writeln(i);
end.