В одной из кодировок Unicode каждый символ кодируется 16 битами.
Вова написал текст (в нём нет лишних пробелов):
«Чиж, грач, стриж, гагара, пингвин, ласточка, жаворонок, свиристель,
буревестник, вертиголовка – птицы».
Ученик вычеркнул из списка название одной птицы. Заодно он вычеркнул
ставшие лишними запятые и пробелы – два пробела не должны идти подряд.
При этом размер нового предложения в данной кодировке оказался
на 12 байт меньше, чем размер исходного предложения. Напишите в ответе
вычеркнутое название птицы.

1) (1 & 0 ∨ 1) ∨ 0 = 1

2) 1 ∨ 0 ∨ (1 & 1) =  1

3) (0 ∨ 1) & 1 =  1

4) 0 ∨ (1 & 1) & 1 =  1

5) ((1 & 0) ∨ (1 ∨ 1)) & (0 ∨ 1) =  1

Объяснение:

1) (1 & 0 ∨ 1) ∨ 0 = (0 ∨ 1) ∨ 0 = 1 ∨ 0 = 1

2) 1 ∨ 0 ∨ (1 & 1) =  1 ∨ 0 ∨ 1 =  1 ∨ 1 =  1

3) (0 ∨ 1) & 1 =  1 & 1 =  1

4) 0 ∨ (1 & 1) & 1 = 0 ∨ 1 & 1 = 0 ∨ 1 = 1

5) ((1 & 0) ∨ (1 ∨ 1)) & (0 ∨ 1) =  (0 ∨ 1) & (0 ∨ 1) =  1 & 1 =  1

Общий порядок действий:  

1) скобки

2) НЕ (¬, черта над выражением) - значение противоположно исходному высказыванию  

3) И (&) - истинно, когда оба исходных высказывания истинны  

4) ИЛИ (∨) - ложно, когда оба исходных высказывания ложны  

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   write('Укажите кол-во эл-ов - ');

   read(N);

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       write(arr[i],'  ');

       if arr[i]>max then max:=arr[i];

   end;

   writeln;

   writeln('Максимальный эл-т - ',max);

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     write(arr[i],'  ');

     end;

end.

Объяснение: