32 lines
587 B
Text
32 lines
587 B
Text
proc nonrec kprime(word n, k) bool:
|
|
word f, p;
|
|
f := 0;
|
|
p := 2;
|
|
while f < k and p*p <= n do
|
|
while n%p = 0 do
|
|
n := n/p;
|
|
f := f+1
|
|
od;
|
|
p := p+1
|
|
od;
|
|
if n>1 then f+1 = k
|
|
else f = k
|
|
fi
|
|
corp
|
|
|
|
proc nonrec main() void:
|
|
byte k, i, c;
|
|
for k from 1 upto 5 do
|
|
write("k = ", k:1, ":");
|
|
i := 2;
|
|
c := 0;
|
|
while c < 10 do
|
|
if kprime(i,k) then
|
|
write(i:4);
|
|
c := c+1
|
|
fi;
|
|
i := i+1
|
|
od;
|
|
writeln()
|
|
od
|
|
corp
|