20 lines
464 B
Plaintext
20 lines
464 B
Plaintext
100 DEF FNFD(N) = VAL(MID$(STR$(N),2,1))
|
|
110 DEF FNLD(N) = N - 10 * INT(N/10)
|
|
120 DEF FNBE(N) = 10 * FNFD(N) + FNLD(N)
|
|
130 DEF FNGF(N) = (N >= 100) AND (N - FNBE(N)*INT(N/FNBE(N)) = 0)
|
|
140 READ S:IF S<0 THEN 260
|
|
150 READ C
|
|
160 PRINT"THE FIRST"C"GAPFUL NUMBERS >="S":"
|
|
170 I=S:F=0
|
|
180 IF NOT FNGF(I) THEN 220
|
|
190 PRINT I,
|
|
200 F=F+1
|
|
210 IF F>=C THEN 240
|
|
220 I=I+1
|
|
230 GOTO 180
|
|
240 PRINT:PRINT
|
|
250 GOTO 140
|
|
260 END
|
|
270 DATA 1,30, 1000000,15, 100000000,10
|
|
280 DATA -1
|