Anonymous user
Semiprime: Difference between revisions
→{{header|ASIC}}: Added
(Added XPL0 example.) |
(→{{header|ASIC}}: Added) |
||
Line 362:
=={{header|BASIC}}==
==={{header|ASIC}}===
{{trans|Tiny BASIC}}
<lang basic>
REM Semiprime
PRINT "Enter an integer ";
INPUT N
N = ABS(N)
Count = 0
IF N >= 2 THEN
FOR Factor = 2 TO N
NModFactor = N MOD Factor
WHILE NModFactor = 0
Count = Count + 1
N = N / Factor
NModFactor = N MOD Factor
WEND
NEXT Factor
ENDIF
IF Count = 2 THEN
PRINT "It is a semiprime."
ELSE
PRINT "It is not a semiprime."
ENDIF
END
</lang>
{{out}}
<pre>
Enter an integer ?60
It is not a semiprime.
</pre>
<pre>
Enter an integer ?33
It is a semiprime.
</pre>
==={{header|BASIC256}}===
<lang BASIC256>function semiprime$ (n)
Line 430 ⟶ 467:
next i
end</lang>
=={{header|Bracmat}}==
| |||