Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Поиск совершенного числа
{ Поиск совершенного числа: сумма делителей числа = самому числу. Само число не учитывается в сумме. } var a, s, k, i : integer; begin readln(a); for i := 2 to a do begin s := 0; k := 1; while k < i do begin if i mod k = 0 then begin s := s + k; end; k := k + 1; end; if s = i then writeln (s); end; end.
run
|
edit
|
history
|
help
0
1januar2018
135
2
sp2014e4
Calculatrice 1.0
nomer3
Tableau
practica 2 ejercicio 8
Sum of array
practica 3 ejercicio 2