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