Binary digits: Difference between revisions

Content added Content deleted
(Add BaCon)
Line 394: Line 394:
=={{header|BaCon}}==
=={{header|BaCon}}==
<lang qbasic>' Binary digits
<lang qbasic>' Binary digits
OPTION MEMTYPE int
INPUT n$
INPUT n$
IF VAL(n$) = 0 THEN
IF VAL(n$) = 0 THEN