Semiprime: Difference between revisions
Added XPL0 example.
(Semiprime in various BASIC dialents) |
(Added XPL0 example.) |
||
Line 2,801:
1679 -> is semi-prime
1680 -> isn't semi-prime
</pre>
=={{header|XPL0}}==
<lang XPL0>func Semiprime(N); \Return 'true' if N is semiprime
int N, F, C;
[C:= 0; F:= 2;
repeat if rem(N/F) = 0 then
[C:= C+1;
N:= N/F;
]
else F:= F+1;
until F > N;
return C = 2;
];
int N;
[for N:= 1 to 100 do
if Semiprime(N) then
[IntOut(0, N); ChOut(0, ^ )];
]</lang>
{{out}}
<pre>
4 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95
</pre>
| |||