Binary digits: Difference between revisions

no edit summary
(Added 6502 assembly example)
No edit summary
Line 1,270:
base[9000, 2]
</lang>
 
=={{header|Gambas}}==
<lang gambas>Public Sub Main()
Dim siBin As Short[] = [5, 50, 9000]
Dim siCount As Short
 
For siCount = 0 To siBin.Max
Print Bin(siBin[siCount])
Next
 
End</lang>
Output:
<pre>
101
110010
10001100101000
</pre>
 
=={{header|Go}}==
Anonymous user