7 lines
136 B
Tcl
7 lines
136 B
Tcl
for {set x 0} {$x < 16} {incr x} {
|
|
puts [num2bin $x]
|
|
}
|
|
puts "--------------"
|
|
puts [num2bin 5]
|
|
puts [num2bin 50]
|
|
puts [num2bin 9000]
|