Игральным картам условно присвоены следующие порядковые номера в зависимости от их достоинства: «валету» — 11, «даме» — 12, «королю» — 13, «тузу» — 14. Порядковые номера остальных карт соответствуют их названиям («шестерка», «девятка» и т. п.). По заданному номеру карты k (6 ≤ k ≤ 14) определить достоинство соответствующей карты

Program karta;

var k: integer;

var n: string;

Begin

n:='Эта карта ';

writeln('Введите номер карты');

readln(k);

if(k<6) or (k>14) then  begin

while (k<6) or (k>14) do begin

writeln('Введите номер карты от 6 до 14');

readln(k);

end;

end;

case k of

6:writeln(n,'Шестёрка');

7:writeln(n,'Семёрка');

8:writeln(n,'Восьмёрка');

9:writeln(n,'Девятка');

10:writeln(n,'Десятка');

11:writeln(n,'Валет');

12:writeln(n,'Дама');

13:writeln(n,'Король');

14:writeln(n,'Туз');

end

end.

800 * 10 = 8000 символов било передано

5000 байт = 5000 * 8 = 40000 бит было передано

40000 : 8000 = 5 бит приходится на кодирование 1 символа

n = 2 ^ i

n = 2^5 = 32 символа размер алфавита.

мед во втором горшке. эти надписи обе ложны, значит первая говорит, что мед не в ней, а вторая что мед есть.