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
диагональ в алфавите
fgh
Задание 27 (окончательный вариант) эффект и неэффект
practica 2 ejercicio 5
Unicorn
Test
uuu
09 Ariketa FOR
For1
Prioject 19 - Counting Sundays