Простенькая программа для определения, является ли число совершенным
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 )