16 lines
320 B
Plaintext
16 lines
320 B
Plaintext
10 DEFINT A-Z
|
|
20 FOR K=1 TO 5
|
|
30 PRINT USING "K = #:";K;
|
|
40 I=2: C=0
|
|
50 F=0: P=2: N=I
|
|
60 IF F >= K OR P*P > N THEN 100
|
|
70 IF N MOD P = 0 THEN N = N/P: F = F+1: GOTO 70
|
|
80 P = P+1
|
|
90 GOTO 60
|
|
100 IF N > 1 THEN F = F+1
|
|
110 IF F = K THEN C = C+1: PRINT USING " ###";I;
|
|
120 I = I+1
|
|
130 IF C < 10 THEN 50
|
|
140 PRINT
|
|
150 NEXT K
|