Question

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

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.