26 lines
552 B
Plaintext
26 lines
552 B
Plaintext
100 muestragapful(100,30)
|
|
110 muestragapful(1000000,15)
|
|
120 muestragapful(1000000000,10)
|
|
130 muestragapful(7123,25)
|
|
140 end
|
|
150 function 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 end function
|
|
230 sub muestragapful(n,gaps)
|
|
240 inc = 0
|
|
250 print "First ";gaps;" gapful numbers >= ";n
|
|
260 while inc < gaps
|
|
270 if n mod isgapful(n) = 0 then
|
|
280 print " ";n;
|
|
290 inc = inc+1
|
|
300 endif
|
|
310 n = n+1
|
|
320 wend
|
|
330 print chr$(10)
|
|
340 end sub
|