20 lines
293 B
Text
20 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
|