Задание:
Напишите программу в паскаль: составить программу для получения в порядке убывания всех делителей данного числа
Решение:
program Divisors; varN,i: integer; beginreadln (N); for i: =N downto 1 do if N mod i=0 then write (i,'); end.
Знаете другой ответ?