Формула Шенона: 2^I=N, где N - объём информации, I - количество бит.
I = [log_2 (N)] - округление в большую сторону
1 байте = 8 бит.
Задача 1
Трижды запускается либо красная, либо зелёная ракета.
N = 2^3 = 8
Ответ: 8
Задача 2
I = [log_2 (800)] = [9.6438] = 10 бит на ученика
Объём 320 учащихся = 320 * 10 = 3200 бит = 400 байт
Ответ: 4
Задача 3
I = [log_2 (10+12+12)] = [5.0875] = 6 бит на символ
6 * 11 = 66 бит = 8.25 байт ~= 9 байт
9 * 60 = 540 байт
Ответ: 3
Задача 4
I = [log_2 (5*5)] = [4.6439] = 5 бит на клетку
15 ходов + начальная позиция = 16 клеток
16 * 5 бит = 80 бит = 10 байт
Ответ: 1
Alt вродебы..............................
Вообще есть способ сразу их сложить, но он крайне сложный потому дабы особо не мучаться, переводим все в десятичную систему 56.74(8) = 46.9375(10), 123.54(16) = 291.328125(10) сложив эти числа получаем =338.265625(10) и последнее что делаем переводим в семиричную 662.16(00523416) часть в скобке это период, число далее тупо повторяется, хотя думаю округлить разрешат до сотых, решал с помощью калькулятора технического, на большинстве есть возможность перевода из одной системы счисления в другую, если знать куда нажимать
const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.