Натуральное число M называется совершенным, если оно равно сумме всех своих делителей, включая единицу, но исключая себя, является ли число м совершенным? Напиши программу в паскале циклов while или repeat

Question

Информатика

Сакердон

15 июня, 02:39

Натуральное число M называется совершенным, если оно равно сумме всех своих делителей, включая единицу, но исключая себя, является ли число м совершенным? Напиши программу в паскале циклов while или repeat

+2

Ответы (1)

Знаете ответ?

Трофим · Answer 1

Var

M, S, d:longint;

Begin

Write ('M = ') ; ReadLn (M) ;

d:=M div 2;

While d > 0 do

Begin

if M mod d = 0 then S:=S+d;

d:=d-1

End;

if M = S then WriteLn ('Это число - совершенное')

else WriteLn ('Данное число не является совершенным')

End.