32 lines
496 B
Plaintext
32 lines
496 B
Plaintext
Procedure isDisarium(n.i)
|
|
digitos.i = Len(Str(n))
|
|
suma.i = 0
|
|
x.i = n
|
|
While x <> 0
|
|
r.i = (x % 10)
|
|
suma + Pow(r, digitos)
|
|
digitos - 1
|
|
x / 10
|
|
Wend
|
|
If suma = n
|
|
ProcedureReturn #True
|
|
Else
|
|
ProcedureReturn #False
|
|
EndIf
|
|
EndProcedure
|
|
|
|
OpenConsole()
|
|
limite.i = 19
|
|
cont.i = 0
|
|
n.i = 0
|
|
PrintN("The first" + Str(limite) + " Disarium numbers are:")
|
|
While cont < limite
|
|
If isDisarium(n)
|
|
Print(Str(n) + #TAB$)
|
|
cont + 1
|
|
EndIf
|
|
n + 1
|
|
Wend
|
|
Input()
|
|
CloseConsole()
|