Semiprime: Difference between revisions
add FreeBASIC
No edit summary |
(add FreeBASIC) |
||
Line 916:
ok
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>function semiprime( n as uinteger ) as boolean
dim as uinteger a = 2, c = 0
while c < 3 andalso n > 1
if n mod a = 0 then
n /= a
c += 1
else
a += 1
end if
wend
if c = 2 then return true
return false
end function
for i as uinteger = 0 to 64
print i, semiprime(i)
next i</lang>
=={{header|Go}}==
| |||