Напишите программу которая вводит натуральное число N и находит все совершенные числа в диапазоне от 1 до N

pascal

Question

Информатика

Аникитка

14 ноября, 02:10

Напишите программу которая вводит натуральное число N и находит все совершенные числа в диапазоне от 1 до N

pascal

+1

Ответы (1)

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

Авдоша · Answer 1

Var i, j, n, p: integer;

begin

readln (n) ;

for i : = 1 to n do

begin

p : = 0;

for j : = i - 1 downto 1 do

if (i mod j = 0) then p : = p + j;

if p = i then writeln (i, ' - совершенное число') ;

end;

end.

Напишите программу которая вводит натуральное число N и находит все совершенные числа в диапазоне от 1 до Npascal

Напишите программу которая вводит натуральное число N и находит все совершенные числа в диапазоне от 1 до N

pascal