Дано натуральное число N. Определить, является ли оно совершенным (совершенное число равно сумме всех своих делителей, не превосходящих само число)

Question

Информатика

Май

21 февраля, 05:11

Дано натуральное число N. Определить, является ли оно совершенным (совершенное число равно сумме всех своих делителей, не превосходящих само число)

+1

Ответы (1)

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

Гемуля · Answer 1

Var numb, k, summa:integer;

begin

readln (numb) ;

for k: = 1 to (numb-1) do

begin

if numb mod k = 0 then

summa:=summa+k;

end;

if summa = numb then

writeln ('Совершенное')

else

writeln ('Несовершенное') ;

end.