22 lines
475 B
Text
22 lines
475 B
Text
limite = 18 : cont = 0 : n = 0
|
|
print "The first", limite, " Disarium numbers are:"
|
|
while cont < limite
|
|
if isDisarium(n) then
|
|
print n, " ";
|
|
cont = cont + 1
|
|
fi
|
|
n = n + 1
|
|
wend
|
|
end
|
|
|
|
sub isDisarium(n)
|
|
digitos = len(str$(n))
|
|
suma = 0 : x = n
|
|
while x <> 0
|
|
r = mod(x, 10)
|
|
suma = suma + (r ^ digitos)
|
|
digitos = digitos - 1
|
|
x = int(x / 10)
|
|
wend
|
|
if suma = n then return True else return False : fi
|
|
end sub
|