30 lines
586 B
Plaintext
30 lines
586 B
Plaintext
FUNCTION iskprime(n, k)
|
|
! Check if n (AN) is a k (K) prime
|
|
LET f = 0
|
|
FOR j = 2 TO an
|
|
DO WHILE REMAINDER(an, j) = 0
|
|
IF f = k THEN LET iskprime = 0
|
|
LET f = f + 1
|
|
LET an = INT(an / j)
|
|
LOOP
|
|
NEXT j
|
|
IF (f = k) THEN LET iskprime = 1
|
|
END FUNCTION
|
|
|
|
!ALMOST prime
|
|
FOR k = 1 TO 5
|
|
PRINT "k = "; k; ":";
|
|
LET i = 2
|
|
LET c = 0
|
|
DO WHILE c < 10
|
|
LET an = i
|
|
IF iskprime(i,k) <> 0 THEN
|
|
PRINT USING " ###": i;
|
|
LET c = c + 1
|
|
END IF
|
|
LET i = i + 1
|
|
LOOP
|
|
PRINT
|
|
NEXT k
|
|
END
|