На одном из языков программирования (Python, Pascal, C, C++, C, Java)

var k1,k2,k3,k4,k:integer;

begin

writeln('Перед вами программка, которая умеет вычислять количество информации');

writeln('по избранному наобум шарику из мешка.');

writeln('Введите число шаров белого цвета:');

readln(k1);

writeln('Введите число шаров чёрного цвета:');

readln(k2);

writeln('Введите число шаров синего цвета:');

readln(k3);

writeln('Введите число шаров красноватого цвета:');

readln(k4);

k:=k1+k2+k3+k4;

if k1lt;gt;0 then

writeln('Во фразе Выпал белоснежный шар содержится ',log2(k/k1):4:1,' бит(а) инфы');

if k2lt;gt;0 then

writeln('Во фразе Выпал чёрный шар содержится ',log2(k/k2):4:1,' бит(а) информации');

if k3lt;gt;0 then

writeln('Во фразе Выпал голубий шар содержится ',log2(k/k3):4:1,' бит(а) инфы');

if k4lt;gt;0 then

writeln('Во фразе Выпал красноватый шар содержится ',log2(k/k4):4:1,' бит(а) информации');

end.

Пример:

Перед вами программа, которая умеет вычислять количество инфы

по избранному наобум шарику из мешка.

Введите число шаров белоснежного цвета:

100

Введите число шаров чёрного цвета:

0

Введите число шаров голубого цвета:

200

Введите число шаров красноватого цвета:

100

Во фразе Выпал белоснежный шар содержится  2.0 бит(а) инфы

Во фразе Выпал синий шар содержится  1.0 бит(а) инфы

Во фразе Выпал красноватый шар содержится  2.0 бит(а) информации