23 lines
509 B
Text
23 lines
509 B
Text
100 DEFINT A-Z
|
|
110 CLS
|
|
120 LET L = N
|
|
130 LET R = 0
|
|
140 LET S = 1
|
|
150 IF L < 10 THEN GOTO 300
|
|
160 LET R = R+(L MOD 10)*S
|
|
170 LET L = L\10
|
|
180 LET S = S*10
|
|
190 LET P = R+L
|
|
200 IF P = 1 THEN GOTO 280 ELSE FOR D = 2 TO SQR(P)
|
|
210 IF P MOD D = 0 THEN GOTO 280
|
|
250 NEXT D
|
|
270 GOTO 150
|
|
280 LET N = N+1
|
|
290 GOTO 120
|
|
300 LET I = I+1
|
|
310 IF I = 1 THEN PRINT "1 - 45:" ELSE IF I = 241 THEN PRINT : PRINT "241 - 250:"
|
|
320 IF I <= 45 OR I > 240 THEN PRINT N,
|
|
330 LET N = N+1
|
|
340 IF I < 250 THEN GOTO 120
|
|
350 PRINT
|
|
360 END
|