Для кодирования некоторой последовательности, состоящей из букв И, К, Л, М, Н, решили использовать неравномерный двоичный код, удовлетворяющий одному из условий Фано. Для буквы Л использовали кодовое слово 1, для буквы М – кодовое слово 10. Какова наименьшая возможная суммарная длина всех пяти кодовых слов? В ответе указать только суммарную длину кодов для указанных букв.

1. если числа a,b,c,d вводятся с клавиатуры, то их просто нужно проверить на принадлежность интервалу (1; 30), но не присваивать им 1! 2. циклы while не нужны, они зацикливают программу. 3. так как увеличение значения k и суммы нужно выполнять одновременно, то есть при выполнении условия, то нужно было эти команды заключить в операторные скобки begin end примерный вариант программы: program z; var a,b,c,d,k,s: integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); k: =0; s: =0; if (a> 1) and (a< 30) and (a mod 3=0) then begin k: =k+1; s: =s+a; end; if (b> 1) and (b< 30) and (b mod 3=0) then begin k: =k+1; s: =s+b; end; if (c> 1) and (c< 30) and (c mod 3=0) then begin k: =k+1; s: =s+c; end; if (d> 1) and (d< 30) and (d mod 3=0) then begin k: =k+1; s: =s+d; end; if k=0 then writeln(not solution') else writeln(s/k); end.