Var a,b,res1,res2:integer;
begin
write('ведите делимое => ');
readln(a);
writeln('введите делитель => ');
readln(b);
res1:=a div b;
res2:=a mod b;
writeln('результат целочисленного деления=> ',res1,' остаток => ',res2);
end.
Так как все шары разного цвета, то то, что мы вытащили красный шар уменьшает незнание в 32 раза. 32 = 2^5 -> сообщение несет 5 бит информации
38.89 получается 38.9,а 37.56 получается 37.6 их сумма 76.5