ЗАДАЧА: Сообщение, записанное буквами 8 символьного алфавита, содержит 15 символов. Какой объëм информации оно несëт У ВАС, ДАМЫ И ГОСПОДА!

Дано: Решение: 1) l=K×i, i - неизвестно. 2) i=log2N =log2 8 = 7 бит - объём одного символа. 3) I=30×7=210 бит - объём всего сообщения. ответ: 210 бит объём всего сообщения.

N=8

К=30

I-?

N = 8

N =

i = 3

k = 15

I = k * i

I = 15 * 3 = 45 Бит

ответ: 45 Бит

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в