RosettaCodeData/Task/Binary-digits/PureBasic/binary-digits.basic
2023-07-01 13:44:08 -04:00

8 lines
188 B
Text

If OpenConsole()
PrintN(Bin(5)) ;101
PrintN(Bin(50)) ;110010
PrintN(Bin(9000)) ;10001100101000
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
CloseConsole()
EndIf