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

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

Question

Аникита

13 января, 15:42

+2

Ответы (1)

Знаете ответ на вопрос?

Георгина · Answer 1

program Divisors;

var

N, i: integer;

begin

readln (N) ;

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

end.

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