15 lines
248 B
Text
15 lines
248 B
Text
10 for c = 1 to 3
|
|
20 read n
|
|
30 print n;"-> ";vin$(n)
|
|
40 next c
|
|
80 end
|
|
100 sub vin$(n)
|
|
110 b$ = ""
|
|
120 n = abs(int(n))
|
|
130 '
|
|
140 b$ = str$(n mod 2)+b$
|
|
150 n = int(n/2)
|
|
160 if n > 0 then 130
|
|
170 vin$ = b$
|
|
180 end sub
|
|
200 data 5,50,9000
|