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

1). а и b - И - Это символ благодаря которому мы понимаем, что в ответе обязательно должны совпадать a и b.

Например:

Для какого из данных слов истинно высказывание: (чётное кол-во букв) И (первая буква гласная).

Варианты ответов:

Морж - (4 буквы-чётное✔; М-согласная✖) Ложно.Оладьи - (6 б.-чётное✔; О-гласная✔) ИстинноМираж - (5б.-нечётное✖; М-согласная✖) ЛожноАня - (3б.-нечётное✖; А-гласная✔) Ложно

Из этих вариантов нужно найти тот, что полностью совпадает.

2). a или b - ИЛИ - Это символ благодаря которому мы понимаем, что в ответе не обязательно должны совпадать a или b, т.е. если в высказывании будет совпадать как минимум 1 вариант, то оно уже не будет ложным.

Например:

Для какого из приведённых названий ложно высказывание:  (чётное кол-во букв) ИЛИ (последняя буква гласная).

Варианты ответов:

Газета - (6б.-чётное✔; А-гласная✔) ИстинноТрамвай - (7б.-нечётное✖; Й-согласная✖) ЛожноГлаза - (5б.-нечётное✖; А-гласная✔) ИстинноПаук - (4б.-чётное✔; К-согласная✖) Истинно

Из этих вариантов нужно найти тот, что совпадает как минимум одним действием. Если вариант будет полностью совпадать, то он так же считается верным.

function MyCool(a: array of integer): array of integer;

begin

 Result := new integer[6];

 var (min, max, kn, kp, kz) := (a[0], a[0], 0, 0, 0);

 for var i:= 0 to a.High do

 begin

   if a[i] > 0 then kp += 1;

   if a[i] = 0 then kz += 1;

   if a[i] < 0 then kn += 1;

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

   if a[i] < min then min := a[i]

 end;

 Result[0] := max;

 Result[1] := min;

 Result[2] := kn;

 Result[3] := kp;

 Result[4] := kz;

 Result[5] := kp + kz

end;

begin

 var a := ArrRandom(10, -10, 10);

 a.Println;

 var b := MyCool(a);

 Println('Значение наибольшего элемента массива:', b[0]);

 Println('Значение наименьшего элемента массива:', b[1]);

 Println('Количество отрицательных элементов массива:', b[2]);

 Println('Количество положительных элементов массива:', b[3]);

 Println('Количество нулевых элементов массива:', b[4]);

 Println('Количество неотрицательных элементов массива:', b[5])

end.