Вкорзине бабы-яги лежат разные грибы. баба-яга для приготовления зелья вытащила из корзины мухомор. данное сообщение содержит 5 бит информации. сколько грибов в корзине у бабы-яги? ​

Восстановим порядок выполнения команд:

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / b = ...

3) прибавь 4 — ...

4) прибавь 4 — ...

5) прибавь 4 — 12 + 4 = 16

Рассмотрим детальней, заменив неизвестные на буквы:

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / b = x

3) прибавь 4 — x + 4 = y

4) прибавь 4 — y + 4 = 12

5) прибавь 4 — 12 + 4 = 16

Теперь выписываем выражения с неизвестными и методом подстановки создаем одно большое уравнение:

52 / b = x

x + 4 = y

y + 4 = 12

52 / b + 4 + 4 = 12

52 / b = 4

b = 52 / 4 = 13

Неизвестное число b равно 13.

Проверяем:

1) прибавь 4 — 48 + 4 = 52

2) раздели на b — 52 / 13 = 4

3) прибавь 4 — 4 + 4 = 8

4) прибавь 4 — 8 + 4 = 12

5) прибавь 4 — 12 + 4 = 16

Все верно

ответ: 13

1)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(a[i]);

   end;

   var sum := 0;

   for var i := 1 to 9 do

       if a[i] > 45 then

           sum += a[i];

           

   writeln('Сумма: ', sum);

end.

2)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(a[i]);

   end;

   var sum := 0;

   for var i := 1 to 9 do

           sum += a[i];

           

   writeln('Сумма: ', sum);

end.

3)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       a[i] := random(-10, 10);

       write(a[i], ' ');

   end;

   writeln();

   var min := a[1];

   for var i := 2 to 9 do

       if (a[i] mod 2 <> 0) and (a[i] < min) then

           min := a[i];

           

   writeln('Min: ', min);

end.