23 lines
486 B
Text
23 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
|