Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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
Please
log in
to post a comment.
444555666
9
two number sum
Количество пар кр и некр 11 улучшенный алгоритм
считалочка06
Сумма квадратов чисел = n
tablas
RepeatedLetters
P170808E
Area of a Triangle
stackse - search stackoverflow differently
Please log in to post a comment.