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
1 4 6
08 Ariketa REPEAT
Régua do Tanque Cilindrico Horizontal
iwc ras
Бассейн-7=
pizza
Power for integers
Пузырьковая сортировка массива
help me to fix this stupid thing, so tired about it
mult_matrix.pas