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
test07
сумма чётных и нечётных чисел
Mengubah desimal ke biner
sumar 2 valores
Tugas
Calculatrice 1.0
practica 3 ejercicio 2
Find the greatest integers - v3
Heron Equationヘロンの公式
JESSICA GOMES DE SOUZA FERREIRA 600621634