Binary digits: Difference between revisions
Content added Content deleted
(Add BaCon) |
|||
| Line 391: | Line 391: | ||
Disp P,i |
Disp P,i |
||
Return</lang> |
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}}== |
=={{header|Batch File}}== |
||