Our Blog

Определение, является ли число совершенным

Простенькая программа для определения, является ли число совершенным

var n, i, s:integer;
Begin
writeln ('vvedite n');
readln (n);
s:=0;
for i:=1 to n-1 do if n mod i = 0 then s:=s+i;
if s=n then writeln ('chislo sovershennoe') else writeln ('chislo nesovershennoe');
readln
end.
Comments ( 0 )
    -->