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
BITcustom
Урок 3, задача 6 (1479). Без циклов
222
practica 6 ejercicio 3
B prethodnih B sledecih
Zadanie 3 б
число пи с помощью ряда
Trke
Huong11a2@
Tugas1