Binary digits: Difference between revisions
Content deleted Content added
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}}==
|