Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
codigo
program uwu; var numero,aux,i,suma:int64; begin repeat read(numero); until (numero > 0); aux:=numero; suma:=0; for i:=1 to numero do begin if (aux mod i = 0) then begin suma:=suma+i; end; end; if (suma > 2*(numero)) then write('El numero ',numero,' ES ABUNDANTE') else write('El numero ',numero,' NO ES ABUNDANTE'); end.
run
|
edit
|
history
|
help
0
practica 9 ejercicio 8
LogOp2
123
test34
solar_system_array_n_planets
Task 16 (OGE)-1
practica 2 ejercicio 8
BubbleSor (slimmer)
Задачи к § 66 «Символьные строки» Задача №112336. Замена a-b в последовательности символов
Сумма пар чисел кратных и некратных 11