33 lines
447 B
Plaintext
33 lines
447 B
Plaintext
local fn K_Prime( n as long, k as long ) as BOOL
|
|
long f = 0, i = 0
|
|
BOOL result
|
|
|
|
for i = 2 to n
|
|
while ( n mod i == 0 )
|
|
if f = k then exit fn = NO
|
|
f += 1
|
|
n /= i
|
|
wend
|
|
next
|
|
result = f = k
|
|
end fn = result
|
|
|
|
|
|
long i, c, k
|
|
|
|
for k = 1 to 5
|
|
printf @"k = %ld:\b", k
|
|
i = 2
|
|
c = 0
|
|
while ( c < 10 )
|
|
if ( fn K_Prime( i, k ) )
|
|
printf @"%4ld\b", i
|
|
c++
|
|
end if
|
|
i++
|
|
wend
|
|
print
|
|
next
|
|
|
|
HandleEvents
|