Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
test29
10
Promo1
dz_lesson_17
6
For5
135
3
practica 1 ejercicio 5
practica 3 ejercicio 7