О) 7 11*. Знайдіть відомості та підготуйте повідомлення про коду-
вання:
а) азбуку Морзе;
в) шрифт Брайля;
б) семафорну азбуку; г) мову квітів «селам».​

      Чтобы ответить на вопрос «сколько информации?», надо определить единицу информации каждого символа. Для алфавита (набора букв, цифр, скобок, знаков препинания и других символов) существует понятие информационного веса символа — количества информации, которое несет один символ алфавита, которое обозначается как i и выражается в битах (bit).
      Количество информации в сообщении, представленного символами, складывается из информационных весов і составляющих его символов, причём информационный объём сообщения I равен произведению количества символов в сообщении k на информационный вес символа алфавита i, что записывается как I = k×i.
     Из сообщения в задании следует, что количество всех неповторяющихся символов алфавита неизвестной планеты равно 8. Для такого алфавита і = 3 bit (так как 2³=8), а следовательно, поскольку в этом сообщении k = 12 символов, то информации оно несёт l = k×i = 12×3 = 36 bit.

program weight_class;

var x, y:integer;

label 10,20;

 begin

   10:Writeln ('введите вес спорсмена в кг');

   Readln(x);

   if x<69 then

     Writeln('Спортсмен весом ', x, 'кг, относится к легкой категории');

   if (x>=69) and (x<85) then

   Writeln('Спортсмен весом ', x, 'кг, относится к средней категории');

   if (x>=85) and (x<105) then

   Writeln('Спортсмен весом ', x, 'кг, относится к тяжелой категории');

    if x>=105 then

   Writeln('Спортсмен весом ', x, 'кг, относится к супертяжелой категории');

   Writeln(' Будете еще вводить вес спортсмена: 1-Да, другая любая цифра-Нет');

   Readln (y);

   if y=1then

     goto 10;

  end.

Объяснение: