Var x,y,z,c:real;
begin
readln(x,y,z);
c:=exp(ln(2)*exp(ln(y)*x))+exp(ln(exp(ln(3)*x))*y);
c:=c-y*(arctan(z)-pi/6)/(abs(x)+1/(y*y+1));
writeln(c:8:6);
end.
Пример:3.251 0.325 0.466e-4
4.251433
N=2^i
N=16=2^4=>i=4бита информационный объем 1 символа
Всего символов n=90=>
I=n*i= 90*4=360 бит инф.объем всего сообщения
1 байт=8 бит=>
360:8=45 байт
Ответ: 45 байт
Var A:array[1..6,1..6]of integer;
i,m:integer;
begin
for i:=1 to 6 do A[1,i]:=1;
for i:=1 to 6 do A[i,1]:=1;
for i:=2 to 6 do
for m:=2 to 6 do
A[i,m]:=A[i-1,m]+A[i,m-1];
for i:=1 to 6 do begin
for m:=1 to 6 do
write(A[i,m],' ');
writeln();
end;
<span>end.</span>