Run Code
|
Code Wall
|
Users
|
Misc
|
Feedback
|
About
|
Login
|
Theme
|
Privacy
Perfect numbers
var i, x, max, sum : longint; var perfecti : boolean; begin max := 1000; for i := 1 to max do begin sum := 0; for x := 1 to i-1 do if i mod x = 0 then sum := sum + x; perfecti := sum = i; if perfecti then writeln(i, ' ', perfecti); end; readln(); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Светофор-графика
AKPOTU
Fibonacijev niz
b1
sp2014e4
сумма чётных и нечётных чисел
JESSICA GOMES DE SOUZA FERREIRA 600621634
Ipis unazad ulancana lista
Mengeja dari belakang
Typecast an array to other type
Please log in to post a comment.