Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
abundante
//fpc 3.0.0 program abundanteXD; var num,divisor,prim,i,suma,doble:int64; begin repeat read(num); until (num>0); divisor:=0; suma:=0; doble:=(num*2); repeat divisor:=divisor+1; if (num mod divisor)=0 then suma:=(suma+divisor); until (divisor=num); if (suma>doble) then write('El numero ',num,' ES ABUNDANTE') else if (suma<=doble) then write('El numero ',num,' NO ES ABUNDANTE'); end.
run
|
edit
|
history
|
help
0
Алгоритм умножения двухзначного числа на 11
Gertie
test06
practica 7 ejercicio 6
Uji soal 1
test26
1
zadacha8
Удвоенное число с одинаковыми цифрами
practica 1 ejercicio 8