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