14 lines
176 B
Text
14 lines
176 B
Text
input "Number to convert:";a
|
|
while 2^(n+1) < a
|
|
n = n + 1
|
|
wend
|
|
|
|
for i = n to 0 step -1
|
|
x = 2^i
|
|
if a >= x then
|
|
print 1;
|
|
a = a - x
|
|
else
|
|
print 0;
|
|
end if
|
|
next
|