65 lines
481 B
Plaintext
65 lines
481 B
Plaintext
for k = 1 to 5
|
|
|
|
print "k = ", k, ": ",
|
|
|
|
let e = 2
|
|
let c = 0
|
|
|
|
do
|
|
|
|
if c < 10 then
|
|
|
|
let n = e
|
|
gosub kprime
|
|
|
|
if r then
|
|
|
|
print tab, e,
|
|
let c = c + 1
|
|
|
|
endif
|
|
|
|
let e = e + 1
|
|
|
|
endif
|
|
|
|
loop c < 10
|
|
|
|
print
|
|
|
|
next k
|
|
|
|
end
|
|
|
|
sub kprime
|
|
|
|
let f = 0
|
|
|
|
for i = 2 to n
|
|
|
|
do
|
|
|
|
if n mod i = 0 then
|
|
|
|
if f = k then
|
|
|
|
let r = 0
|
|
return
|
|
|
|
endif
|
|
|
|
let f = f + 1
|
|
let n = n / i
|
|
|
|
wait
|
|
|
|
endif
|
|
|
|
loop n mod i = 0
|
|
|
|
next i
|
|
|
|
let r = f = k
|
|
|
|
return
|