19 lines
293 B
Text
19 lines
293 B
Text
function semiprime$ (n)
|
|
a = 2
|
|
c = 0
|
|
while c < 3 and n > 1
|
|
if (n mod a) = 0 then
|
|
n = n / a
|
|
c = c + 1
|
|
else
|
|
a = a + 1
|
|
end if
|
|
end while
|
|
if c = 2 then return "True"
|
|
return "False"
|
|
end function
|
|
|
|
for i = 0 to 64
|
|
print i, semiprime$(i)
|
|
next i
|
|
end
|