lab3 / lr3

# Процедура для извлечения 4 наименьших значащих битов и перевода числа в двоичный формат
proc to_binary {number} {
if {$number < 0 || $number > 15} {
return "Ошибка: Число должно быть в диапазоне от 0 до 15"
}
set binary ""
for {set i 0} {$i < 4} {incr i} {
set bit [expr {$number & 1}]
set binary "$bit$binary"
set number [expr {$number >> 1}]
}
return "${binary}b"
}

# Основной скрипт
puts "Введите положительное целое число от 0 до 15:"
set input [gets stdin]

# Проверка ввода
if {![string is integer -strict $input]} {
puts "Ошибка: Введено некорректное число"
exit 1
}

set number [string trim $input]
set result [to_binary $number]
puts $result