Semiprime: Difference between revisions
Content added Content deleted
(Semiprime in various BASIC dialents) |
(Added XPL0 example.) |
||
Line 2,801: | Line 2,801: | ||
1679 -> is semi-prime |
1679 -> is semi-prime |
||
1680 -> isn't 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> |
</pre> |
||