15 lines
319 B
Plaintext
15 lines
319 B
Plaintext
100 rem Semiprime
|
|
110 cls
|
|
120 for i = 0 to 64
|
|
130 print using "## ";i semiprime$(i)
|
|
140 next i
|
|
150 end
|
|
160 sub semiprime$(n)
|
|
170 a = 2
|
|
180 c = 0
|
|
190 do while c < 3 and n > 1
|
|
200 if n mod a = 0 then n = n/a : c = c+1 else a = a+1
|
|
210 loop
|
|
220 if c = 2 then semiprime$ = "True" else semiprime$ = "False"
|
|
230 end sub
|