Даю 70балов язык паскаль решите через вайл плииииз Выведите все натуральные делители...

Question

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

Answer 1

Program x;

var

i , x : integer;

Begin

Readln(x);

I:=1;

While I <= x do </p>

Begin

If x mod I = 0 then

Writeln(i);

Inc(I);

End;

End.