27 lines
520 B
Text
27 lines
520 B
Text
sub is_gapful(n)
|
|
m = n
|
|
l = mod(n, 10)
|
|
while (m >= 10)
|
|
m = int(m / 10)
|
|
wend
|
|
return (m * 10) + l
|
|
end sub
|
|
|
|
sub muestra_gapful(n, gaps)
|
|
inc = 0
|
|
print "Primeros ", gaps, " numeros gapful >= ", n
|
|
while inc < gaps
|
|
if mod(n, is_gapful(n)) = 0 then
|
|
print " " , n ,
|
|
inc = inc + 1
|
|
end if
|
|
n = n + 1
|
|
wend
|
|
print chr$(10)
|
|
end sub
|
|
|
|
muestra_gapful(100, 30)
|
|
muestra_gapful(1000000, 15)
|
|
muestra_gapful(1000000000, 10)
|
|
muestra_gapful(7123,25)
|
|
end
|