В конце программы пропущен end;
И еще не описан массив Dt
По условию:
a=5, b=20, c=-7, d=25
Находим значение переменной r:
r = a + (4 * b * c ) * d = 5 + (4* 20 * -7) * 25 = -13995
Находим значение переменной a:
a = a + 4 = 5 + 4 = 9
Находим значение переменной d:
d = a * 7 = 9 * 7 = 63
program r_a_d;
var
a, b, c : integer;
r, d : real;
begin
a:=5;
b:=20;
c:=-7;
d:=25;
r := a + (4 * b * c ) * d;
a := a+4;
d := a*7;
writeln('r=', r:10:4, ', a=', a, ', d=', d:10:4);
end.
Для решения данной задачи необходимо построить дерево и посчитать, сколько отрезков приходится для каждой буквы.
Например, исходя из рисунка, для буквы "О" есть 1 отрезок - это 0 (итого 1), а для буквы "Е" 2 отрезка - это 1 и 0 (итого 2), для буквы "П" - это 1, 1, 0 (итого 3). Затем необходимо сложить все отрезки и посчитать <span>минимальную общую длину кодовых слов для всех семи букв.</span>
Ответ не зависит от номера вытащенного шара. Так как вытаскивание любого из 32 шаров - равновероятное событие. Тогда получаем следующее:
N = 2^i, где N = 32, следовательно количество информации i = 5 бит
Ответ: 5 бит