Base 16 numbers needing a to f: Difference between revisions
Base 16 numbers needing a to f en BASIC256
Not a robot (talk | contribs) (Add Modula-2) |
(Base 16 numbers needing a to f en BASIC256) |
||
Line 666:
493 494 495 496 497
498 499 500</pre>
=={{header|BASIC256}}==
<lang qbasic>function needs_af (n)
while n > 0
if (n % 16) > 9 then return true
n = n \ 16
end while
return false
end function
for i = 1 to 500
if needs_af(i) then print i; " ";
next i
end</lang>
=={{header|BCPL}}==
| |||