I - - кол-во информации в сообщении
К - кол-во символов в сообщении
i - кол-во информации, несомой одним символом
N - мощность алфавита
I = К * i
N = 2^i
32 = 2^5
I = 5 * 5 = 25 бит
Ответ: кол-во информации - 25 бит
Извините, что такое энтропия слышу впервые...
Program soprotiv; {Название программы}
<span>var r1, r2:real; {Задаем переменные} </span>
<span>c:byte; </span>
<span>begin {Начало программы} </span>
<span>write ('Введите 1 сопротивление... '); {Вывод сообщения о вводе данных} </span>
<span>readln (r1); {Ввод данных с клавиатуры} </span>
<span>write ('Введите 2 сопротивление... '); {Вывод сообщения о вводе данных} </span>
<span>readln (r2); {Ввод данных с клавиатуры} </span>
<span>write ('Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...'); {Вывод сообщения о вводе данных} </span>
<span>readln (c); {Ввод данных с клавиатуры} </span>
<span>if c=1 {условие} </span>
<span>then writeln ('Сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении} </span>
<span>else writeln ('Сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {Вывод значения, при последовательном соединении} </span>
<span>end. {Конец программы} </span>
Готовая программа в прикрепленном текстовом файле