22 lines
486 B
Text
22 lines
486 B
Text
function numdiv( n as uinteger ) as uinteger
|
|
dim as uinteger c = 2
|
|
for i as uinteger = 2 to (n+1)\2
|
|
if n mod i = 0 then c += 1
|
|
next i
|
|
return c
|
|
end function
|
|
|
|
function istau( n as uinteger ) as boolean
|
|
if n = 1 then return true
|
|
if n mod numdiv(n) = 0 then return true else return false
|
|
end function
|
|
|
|
dim as uinteger c = 0, i=1
|
|
while c < 100
|
|
if istau(i) then
|
|
print i,
|
|
c += 1
|
|
if c mod 10 = 0 then print
|
|
end if
|
|
i += 1
|
|
wend
|