1.в ящике лежат 36 красных и несколько зеленых яблок. сообщение «из ящика достали зеленое яблоко» несет 2 бита информации. сколько яблок в ящике? 2.в корзине 15 яблок, 15 груш и 30 слив. определите сколько бит информации несет сообщение о том, что из корзины извлечена груша? 3. в коробке лежат 16 разноцветных фломастеров. какое количество информации содержит сообщение, что из коробки достали фиолетовый фломастер?

1. Пусть x - количество зеленых яблок.
I = log(2)[1/(x/36)] = log(2)[36/x] = 2;  36/x = 2^2;  x = 9

2. I = log(2)[1/(15/60)] = log(2)[4] = 2 бита

3. I = log(2)16 = 4 бита

Рекурсивный подход.(Символы тоже удаляет)
function grad(s:string):string;
var
i:byte;
detect:boolean;
begin
while i < length(s) - 2 do
begin
inc(i);
if (s[i] = s[i+1]) and (s[i] = s[i+2]) then {проверка последовательности из 3 елементов}
begin
delete(s,i,3); {если да - удаляем их}
detect:=True; {логическая переменная регистрирует изменение строки}
end;end;
if detect = True then
s:=grad(s); {если строку изменили , проверяем не появились ли там еще последовальности}
grad:=s; 
end;

var
s:string;
begin
readln(s);
writeln(grad(s));
end.

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
  begin
    readln(a[i]);
    //если ввели положительное число,увеличим перем. otr на 1
    if a[i] < 0 then
      inc(otr);
    //если ввели отрицательное число,увеличим перем. k на 1
    //и к переменной m прибавим элемент
    if a[i] > 0 then
      begin
        inc(k);
        inc(m, a[i]);
      end;
  end;
//заполним массив d
for i:=1 to l do
  //если индекс четный, присвоим элементу otr
  //иначе присвоим среднее арифметическое
  if i mod 2 = 0 then
    d[i] := otr
  else
    d[i] := m/k;
end.