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

9 lines
115 B
Text

dim a(3)
a(0) = 5
a(1) = 50
a(2) = 9000
for i = 0 to 2
print a(i) using "####", " -> ", bin$(a(i))
next i
end