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