Конкретный вариант: uses crt; var x:<em>real</em>; begin x:=21.17; writeln((5*x+0.36)/(0.77+sqr(x)):3:3); <span>end. </span> Более универсальный: uses crt; var x:<em>real</em>; function y(a:<em>real</em>):<em>real;</em> begin writeln(((5*x+0.36)/(0.77+sqr(x))):3:3); end; begin read(x); y(x); end.
Если ".1." несёт 4 бита информации, а ".2." в 2 раза меньше, то получается, что: Кол-во информации в сообщении ".2." = 4 бита (оно же 0,5 байт) / 2 = 2 бита (0,25 байт).