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

Входные данные

Вводится натуральное число x

Выходные данные

Выведите все делители числа x

Примеры

входные данные

7

выходные данные

1 7

входные данные

21

выходные данные

1 3 7 21

Question

Прискилла

23 января, 22:06

+5

Ответы (1)

Знаешь ответ?

Маняша · Answer 1

Var x, i:integer;

begin;

readln (x);

for i:=1 to x do

if x mod i=0 then writeln (i);

end.