Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
nomer1
Llena un arreglo (con while)
zad27-optimized
diff_data_type
6
AreaTriangulo.pas
23 3
Localisation ND
Registracioni broj firme
6
Please log in to post a comment.