а)-log2(3/4) = -log2 3 + log2 4 = <span>1,586 - 2 = 0,414 бит</span>
Var n:integer;
Begin
Read(n);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
Write(n)
End.
1)
Program n1;
var a,b,c: real;
sum: integer;
begin
readln(a,b,c);
sum:=trunc(a+b+c);
writeln(sum);
end.
2)
Program n2;
var a,n: integer;
x: real;
begin
readln(a,n);
x:=frac(a/n);
writeln(x)
end.
3)
Program n3;
var a,b,c,d: real;
sum: integer;
begin
readln(a,b,c,d);
sum:=round(a+b+c+d);
writeln(sum);
end.
A\/Ā=1, поэтому =1\/В/\С=1