20 lines
258 B
Text
20 lines
258 B
Text
func semiprime n .
|
|
a = 2
|
|
while c < 3 and n > 1
|
|
if n mod a = 0
|
|
n /= a
|
|
c += 1
|
|
else
|
|
a += 1
|
|
.
|
|
.
|
|
if c = 2
|
|
return 1
|
|
.
|
|
return 0
|
|
.
|
|
for i = 1 to 100
|
|
if semiprime i = 1
|
|
write i & " "
|
|
.
|
|
.
|