RosettaCodeData/Task/Non-decimal-radices-Output/PureBasic/non-decimal-radices-output.basic

7 lines
188 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
For i=105 To 115
Bin$=RSet(Bin(i),8,"0") ;- Convert to wanted type & pad with '0'
Hex$=RSet(Hex(i),4,"0")
Dec$=RSet(Str(i),3)
PrintN(Dec$+" decimal = %"+Bin$+" = $"+Hex$+".")
Next