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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.