Almost prime: Difference between revisions

m
(Added XPL0 example.)
Line 4,256:
 
=={{header|XPL0}}==
<lang XPL0>procfunc Factors(N); \Return number of (prime) factors in N
int N, F, C;
[C:= 0; F:= 2;
F:= 2;
repeat if rem(N/F) = 0 then
[C:= C+1;
772

edits