20 lines
423 B
Plaintext
20 lines
423 B
Plaintext
10 DEFINT A-Z
|
|
20 L = N : R = 0 : S = 1
|
|
30 IF L < 10 GOTO 140
|
|
40 R = R + (L MOD 10) * S
|
|
50 L = L \ 10
|
|
60 S = S * 10
|
|
70 P = R + L
|
|
80 IF P = 1 GOTO 120 ELSE FOR D = 2 TO SQR(P)
|
|
90 IF P MOD D = 0 GOTO 120
|
|
100 NEXT D
|
|
110 GOTO 30
|
|
120 N = N + 1
|
|
130 GOTO 20
|
|
140 I = I + 1
|
|
150 IF I = 1 THEN PRINT "1 - 45:" ELSE IF I = 241 THEN PRINT "241 - 250:"
|
|
160 IF I <= 45 OR I > 240 THEN PRINT N,
|
|
170 N = N + 1
|
|
180 IF I < 250 GOTO 20
|
|
190 END
|