Для кодирования сообщения используется таблица

а

б

в

г

д

10

100

011

000

11

закодированное сообщение: 10111011000

найти все декодирования сообщения, записанного под таблицей:

абгдвг

аагввг

изобразить двоичное дерево, соответствующее коду, представленному в таблице:

выполняется ли для этой кодовой таблицы условие фано? почему?



выполняется ли для этой кодовой таблицы обратное условие фано? почему?



заменить код одного символа так, чтобы выполнилось условие фано (или обратное условие фано). выделите зеленым фоном ячейку таблицы с измененным кодом символа.

а

б

в

г

д

 

 

 

 

 

сократить код одного символа в таблице, полученной в п. d так, чтобы условие фано (или обратное условие фано) по-прежнему выполнялось. выделите фиолетовым фоном ячейку таблицы с измененным кодом символа.

а

б

в

г

д

Это задача на вычисление суммы после уплаты налога.
Если s0  - исходная сумма, а р - процент налога, то ищется s=s0-s0*p/100.
Окончательная формула: s=s0(1-p/100)

const
  p=13;  { налог в процентах }
var
  s0,s:real;
begin
  Write('Введите сумму '); Read(s0);
  s:=s0*(1-p/100);
  { а теперь округлим сумму до копеек, т.е. до 0.01 }
  s:=Int(100*(s+0.005))/100;
  Writeln('Сумма после вычета налога ',p,'% составит ',s:0:2)
end.

Тестовое решение:
Введите сумму 2000
Сумма после вычета налога 13% составит 1740.00

Замечание. При целочисленной зарплате и целочисленном проценте налога оператор s:=Int(100*(s+0.005))/100; не нужен, поскольку в дробной части всегда будет не больше двух знаков. Но, поскольку о сумме зарплаты ничего не говорится, а дано только конкретное значение, которое понято как тестовый пример, было предложено решение с округлением.

program raf105;

const

 n = 35;

var

 a: array[1..30] of integer;

 b: array[1..40] of integer;

 c: array[1..n] of integer;

 i : integer;

begin

 writeln('Заполните массив A');

 for i:=1 to 30 do

   readln(a[i]);

   

 writeln('Заполните массив B');

 for i:=1 to 40 do

   readln(b[i]);

   

 writeln('Заполните массив C');

 for i:=1 to n do

   readln(c[i]);

   

 for i:=1 to 40 do

 begin

   if (a[i] < 0) or (b[i] < 0) then

     begin

       writeln('Нет');

       break

     end;

   if c[i] < 0 then

     begin

       writeln('Да');

       break

     end;

 end;

end.

PascalABC