Semiprime: Difference between revisions
→{{header|Tiny BASIC}}: Works with (Tom Pittman's) TinyBasic + output.
(→{{header|Palo Alto Tiny BASIC}}: Added.) |
(→{{header|Tiny BASIC}}: Works with (Tom Pittman's) TinyBasic + output.) |
||
Line 537:
==={{header|Tiny BASIC}}===
{{works with|TinyBasic}}
<syntaxhighlight lang="tinybasic"> PRINT "Enter an integer"▼
<syntaxhighlight lang="basic">10 REM Semiprime
INPUT N▼
40 IF N < 0 THEN LET
50 IF N <
80 IF (N /
90 LET F =
110 GOTO 80
IF C<> 2 THEN PRINT "It is not a semiprime." ▼
120 IF C = 2 THEN PRINT "It is a semiprime."
END▼
▲30 LET C = C + 1
LET N = N / F▼
150 LET C = C + 1
GOTO 10</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>
==={{header|Yabasic}}===
|