Anonymous user
Binary digits: Difference between revisions
Add BaCon
(Add BaCon) |
|||
Line 391:
Disp P,i
Return</lang>
=={{header|BaCon}}==
<lang qbasic>' Binary digits
INPUT n$
IF VAL(n$) = 0 THEN
PRINT "0"
ELSE
PRINT CHOP$(BIN$(VAL(n$)), "0", 1)
ENDIF</lang>
=={{header|Batch File}}==
| |||