Gapful numbers: Difference between revisions
Gapful numbers en BASIC256
(Gapful numbers en Yabasic) |
(Gapful numbers en BASIC256) |
||
Line 194:
first 25 gapful numbers >= 7123: 7125 7140 7171 7189 7210 7272 7275 7280 7296 7350 7373 7420 7425 7474 7488 7490 7560 7575 7630 7632 7676 7700 7725 7770 7777
</pre>
=={{header|BASIC256}}==
{{trans|Yabasic}}
<lang BASIC256>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 "Primeros "; gaps; " números gapful >= "; 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</lang>
{{out}}
<pre>
Igual que la entrada de Yabasic.
</pre>
=={{header|C}}==
<lang C>
| |||