По каналу связи сообщения, содержащие только четыре буквы: а, б, в, г; для передачи используется двоичный код, удовлетворяющий условию фано. для буквы а используется кодовое слово: а — 1. укажите сумму длин кратчайших кодовых слов для букв б, в и г, при котором код будет допускать однозначное декодирование.
case <выражение-селектор > of <список значений1>: <оператор1;> <список значений 2>: <оператор2;> … <список значений N>: <операторN> else<оператор> end;
Program Number1; Var a : integer; Begin writeln('Введите цифру '); readln(a); if (a<0) or (a>9) then writeln ('Это число не является цифрой') else case a of 0 : writeln ('ноль'); 1 : writeln ('один'); 2 : writeln ('два'); 3 : writeln ('три'); 4 : writeln ('четыре'); end; readln; End.