Найти количество информации в сообщении длиной 4 с вероятностями p=0,25

видимо, имеется в виду, что используется алфавит из 2 символов (для определённости, a и b), в котором вероятность встретить символ a равна 0.25, а символа b 1 - 0.25 = 0.75.

найдём информационный вес одного символа:

количество информации в сообщении из 4 символов равно

0.81 бит *  4 = 3.24 бит

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

всего длина окружности составляет 2пr, а половина - пr