23 lines
546 B
Text
23 lines
546 B
Text
100 CLS
|
|
110 N = 100 : GAPS = 30 : GOSUB 230
|
|
120 N = 10000 : GAPS = 15 : GOSUB 230
|
|
130 N = 7123 : GAPS = 25 : GOSUB 230
|
|
140 END
|
|
150 REM isgapful(n)
|
|
160 M = N
|
|
170 L = N MOD 10
|
|
180 WHILE (M >= 10)
|
|
190 M = INT(M/10)
|
|
200 WEND
|
|
210 ISGAPFUL = (M*10)+L
|
|
220 RETURN 'end function
|
|
230 REM muestragapful(n,gaps)
|
|
240 INC = 0
|
|
250 PRINT "First "; GAPS; " gapful numbers >= "; N
|
|
260 WHILE INC < GAPS
|
|
270 GOSUB 150
|
|
280 IF N MOD ISGAPFUL = 0 THEN PRINT " "; N; : INC = INC + 1
|
|
290 N = N+1
|
|
300 WEND
|
|
310 PRINT CHR$(10)
|
|
320 RETURN
|