Напишите программу в паскаль:

составить программу для получения в порядке убывания всех делителей данного числа

1

Ответы и объяснения

Лучший Ответ!
2012-03-15T23:03:44+04:00

program Divisors;

var

N,i: integer;

begin

readln(N);

for i:=N downto 1 do if N mod i = 0 then write(i,' ');

end.