Anonymous user
Semiprime: Difference between revisions
→{{header|Minimal BASIC}}: Added
(→{{header|ASIC}}: Added) |
(→{{header|Minimal BASIC}}: Added) |
||
Line 419:
next i
end</lang>
==={{header|Minimal BASIC}}===
{{trans|Tiny BASIC}}
{{works with|Commodore BASIC|3.5}}
{{works with|Nascom ROM BASIC|4.7}}
<lang gwbasic>
10 REM Semiprime
20 PRINT "Enter an integer";
30 INPUT N
40 LET N = ABS(N)
50 LET C = 0
60 IF N < 2 THEN 130
70 FOR F = 2 TO N
80 IF INT(N/F)*F <> N THEN 120
90 LET C = C+1
100 LET N = N/F
110 GOTO 80
120 NEXT F
130 IF C <> 2 THEN 160
140 PRINT "It is a semiprime."
150 GOTO 170
160 PRINT "It is not a semiprime."
170 END
</lang>
==={{header|PureBasic}}===
| |||