Ответ находится во вложении
V=i*T*D*1=16*10*44100=<span>
7056000 бит/8/1024=</span><span><span>861,328125Кбайт</span></span>
Var x,y,S:real;
k:integer;
Begin
x:=-4;
k:=0;
While x<7 do
Begin
if (x < -3) then y:=2*x-5*Sin(x)
else if (-3 <= x)and(x <= 5) then y:=1-Sin(x)
else y:=ln(4*x+Sin(x));
if (y > 0) then
Begin
S:=S+y;
k:=k+1
End;
WriteLn('y(',x:0:1,') = ',y:0:3);
x:=x+0.2
End;
WriteLn('Sr = ',S/k);
ReadLn
End.
Нужно одновременно нажать клавиши Ctrl+Alt+Del