Question

Совершенным называется число, равное сумме всех своих делителей, меньших его самого (например, число 6=1+2+3). Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным.

Входные данные
Входная строка содержит натуральное число N .

Выходные данные
Если число N – совершенное, программа должна вывести в одну строчку через пробел все делители этого числа, меньшие N . Если число несовершенное, программа должна вывести 0.

Answer 1

var n,z,n1,e:integer;

begin

e:=0;

readln(n);

n1:=n div 2;

for z:=1 to n1 do begin

if (n mod z = 0) then e:=e+z;

end;

if (e=n)

then writeln('соверншенное')

else writeln('0');

end.