Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. (программа Паскаль)
Вопрос посетителя
Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. Напечатать все совершенные числа, меньшие заданного числа N
Ответ эксперта
program delitel_cisla;
var i,h,del,f:longint;
begin
writeln(‘napiste maximalni cislo’);
f:=0;
readln(i);
while i>=1
do
begin
for del:=1 to i do
if(i mod del)=0 then
begin
{writeln(‘delitel= ‘, del);}
f:=f+del;
end;
h:=f-del;
{writeln(‘suma delitelej=’, h);}
f:=0;
i:=i-1;
if h=del then writeln(‘sovershennoje cislo = ‘, h)
end;
end.