17 lines
337 B
Text
17 lines
337 B
Text
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, ^ )];
|
|
]
|