Semiprime: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (use wiki markup for links, fix links) |
(add tinybasic) |
||
Line 2,521: | Line 2,521: | ||
1680 is ... NOT a semiprime |
1680 is ... NOT a semiprime |
||
</pre> |
</pre> |
||
=={{header|Tiny BASIC}}== |
|||
<lang tinybasic> PRINT "Enter an integer" |
|||
INPUT N |
|||
IF N<0 THEN LET N = -N |
|||
IF N < 2 THEN GOTO 20 |
|||
LET C = 0 |
|||
LET F = 2 |
|||
10 IF (N/F)*F = N THEN GOTO 30 |
|||
LET F = F + 1 |
|||
IF F > N THEN GOTO 20 |
|||
GOTO 10 |
|||
20 IF C = 2 THEN PRINT "It is a semiprime." |
|||
IF C<> 2 THEN PRINT "It is not a semiprime." |
|||
END |
|||
30 LET C = C + 1 |
|||
LET N = N / F |
|||
GOTO 10</lang> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |