Semiprime: Difference between revisions
Content added Content deleted
(→{{header|Palo Alto Tiny BASIC}}: Added.) |
|||
Line 484: | Line 484: | ||
170 END |
170 END |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
==={{header|Palo Alto Tiny BASIC}}=== |
|||
{{trans|Tiny BASIC}} |
|||
<syntaxhighlight lang="basic"> |
|||
10 REM SEMIPRIME |
|||
20 INPUT "ENTER AN INTEGER"N |
|||
30 LET N=ABS(N) |
|||
40 LET C=0 |
|||
50 IF N<2 GOTO 90 |
|||
60 FOR F=2 TO N |
|||
70 IF (N/F)*F=N LET C=C+1,N=N/F;GOTO 70 |
|||
80 NEXT F |
|||
90 IF C=2 PRINT "IT IS A SEMIPRIME.";STOP |
|||
100 PRINT "IT IS NOT A SEMIPRIME.";STOP |
|||
</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|PureBasic}}=== |
==={{header|PureBasic}}=== |