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

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

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

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

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

Примеры

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

7

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

1 7

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

21

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

1 3 7 21

Question

Тиманя

24 марта, 20:52

+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.