22 lines
421 B
Plaintext
22 lines
421 B
Plaintext
dim a(2)
|
|
a(0) = 627615 : a(1) = 39390 : a(2) = 588225
|
|
for i = 0 to arraysize(a(),1)
|
|
dr = digitalRoot(a(i))
|
|
print a(i), "\tAdditive persistence = ", ap, "\tDigital root = ", dr
|
|
next i
|
|
end
|
|
|
|
sub digitalRoot(n)
|
|
ap = 0
|
|
repeat
|
|
dr = 0
|
|
while n > 0
|
|
dr = dr + mod(n, 10)
|
|
n = int(n / 10)
|
|
wend
|
|
ap = ap + 1
|
|
n = dr
|
|
until dr < 10
|
|
return dr
|
|
end sub
|