Binary digits: Difference between revisions
m
no edit summary
mNo edit summary |
|||
Line 1,304:
<pre>5 == 101, 50 = 110010, 1000 = 10001100101000</pre>
=={{header|Easyprog.online}}==
<lang>func to2 n . r$ .
if n > 0
call to2 n / 2 r$
if n mod 2 = 0
r$ &= "0"
else
r$ &= "1"
.
else
r$ = ""
.
.
func pr2 n . .
call to2 n r$
if r$ = ""
print "0"
else
print r$
.
.
call pr2 5
call pr2 50
call pr2 9000</lang>
<pre>
101
110010
10001100101000
</pre>
=={{header|Elena}}==
|