Binary digits: Difference between revisions
→{{header|Fortran}}
No edit summary |
|||
Line 1,048:
end program bits
</lang>
=={{header|FreeBASIC}}==
<lang freebasic>
' FreeBASIC v1.05.0 win64
Dim As String fmt = "#### -> &"
Print Using fmt; 5; Bin(5)
Print Using fmt; 50; Bin(50)
Print Using fmt; 9000; Bin(9000)
Print
Print "Press any key to exit the program"
Sleep
End
</lang>
{{out}}
<pre>
5 -> 101
50 -> 110010
9000 -> 10001100101000
</pre>
=={{header|FunL}}==
| |||