27 lines
545 B
Text
27 lines
545 B
Text
function is_gapful(n)
|
|
m = n
|
|
l = n mod 10
|
|
while (m >= 10)
|
|
m = int(m / 10)
|
|
end while
|
|
return (m * 10) + l
|
|
end function
|
|
|
|
subroutine muestra_gapful(n, gaps)
|
|
inc = 0
|
|
print "First "; gaps; " gapful numbers >= "; n
|
|
while inc < gaps
|
|
if n mod is_gapful(n) = 0 then
|
|
print " " ; n ;
|
|
inc = inc + 1
|
|
end if
|
|
n = n + 1
|
|
end while
|
|
print chr(10)
|
|
end subroutine
|
|
|
|
call muestra_gapful(100, 30)
|
|
call muestra_gapful(1000000, 15)
|
|
call muestra_gapful(1000000000, 10)
|
|
call muestra_gapful(7123,25)
|
|
end
|