Base 16 numbers needing a to f: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Modula-2) |
(Base 16 numbers needing a to f en BASIC256) |
||
Line 666: | Line 666: | ||
493 494 495 496 497 |
493 494 495 496 497 |
||
498 499 500</pre> |
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}}== |
=={{header|BCPL}}== |