===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
Иванов-парикмахер
Петров-плотник
Сидоров-мельник
Гришин-почтальон
Алексеев-маляр
Чтобы можно было декодировать однозначно, должно соблюдаться условие Фано - ни один код символа не является началом другого.
10 не подходит, т.к. на 10 уже начинаются кодыкоды В и Д
00 не подходит, так как на 0 начинается А
Остаётся 11 для Г, на 11 никакой другой код не начинается.
Ответ 4
252 .0 =1111 1100 0000 0000 - десять нулей ---> 2^10=1024
1024 -2=1022
ответ 1022