Для 5 букв латинского алфавита заданы их двоичные коды (для некоторых букв – из двух бит, для некоторых – из трех). эти а b с d е 100 110 011 01 10 какой набор букв закодирован двоичной строкой 1000110110110, если известно, что все буквы в последовательности – разные?

дано 1000110110110разбиваем100 011 01 10 110ответ a c d e b

Var a,b,c: integer; begin read(a,b,c);     if (a > b) and (a > c) then          write(a)     else         if (b > a) and (b > c) then          write(b)     else           write(c); end.в делфи добавишь на форму эдиты(4 штуки) и  одну кнопку. в трех эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку: procedure btn1click; var  a,  b,  c, max :   integer;   begin  a: = strtoint(edt1.text); // где edt1,2,3 - имена полей для ввода(эдиты) b: = strtoint(edt2.text); c: = strtoint(edt2.text);     if  (a > b)  and  (a > c)  then            max: = a;       else          if  (b > a)  and  (b > c)  then          max: = b;     else            max: = c; edt4.text: = 'максимальное число' +  max; //или  showmessage(максимальное число' +  max);   end.