Вопрос от посетителя
Напишите программу в паскаль:
составить программу для получения в порядке убывания всех делителей данного числа
Отвечает Илюха:
program Divisors;
var
N,i: integer;
begin
readln(N);
for i:=N downto 1 do if N mod i = 0 then write(i,’ ‘);
end.