Semiprime: Difference between revisions

{{works with|TinyBasic}}

<syntaxhighlight lang="basic">10 REM Semiprime

20 PRINT "Enter an integer"

30 INPUT N

40 IF N < 0 THEN LET N = -N

50 IF N < 2 THEN GOTO 120

60 LET C = 0

70 LET F = 2

80 IF (N / F) * F = N THEN GOTO 150

90 LET F = F + 1

100 IF F > N THEN GOTO 120

110 GOTO 80

120 IF C = 2 THEN PRINT "It is a semiprime."

130 IF C <> 2 THEN PRINT "It is not a semiprime."

140 END

150 LET C = C + 1

160 LET N = N / F

170 GOTO 80</syntaxhighlight>

{{out}}2 runs.

<pre>

Enter an integer

? 60

It is not a semiprime.

</pre>

<pre>

Enter an integer

? 33

It is a semiprime.

</pre>