Данная программа позволяет найти все совершенные числа из промежутка от 1 до заданного n.
var n, i, s, j:integer; Begin s:=0; for i:=1 to 10000 do begin s:=0; for j:=1 to i-1 do if i mod j = 0 then s:=s+j; if s=i then writeln (i); end; readln end.
Данная программа позволяет найти все совершенные числа из промежутка от 1 до заданного n.
var n, i, s, j:integer; Begin s:=0; for i:=1 to 10000 do begin s:=0; for j:=1 to i-1 do if i mod j = 0 then s:=s+j; if s=i then writeln (i); end; readln end.
Comments ( 0 )