Ученик, программист, врач, собака
(1+y)*((2*x+sqrt(y)-x-y)/(y+1/(x*x-4)))
var x,y:integer;
begin
x:=3;
y:=9;
writeln((1+y)*((2*x+sqrt(y)-x-y)/(y+1/(x*x-4))));
end.
По формуле I=количество каналов*частоту дискретизации*глубина кодирования*время в секундах
Подставляем и делим все это на 2 в 23 степени (перевод битов в мегабайты)
I=(1*48000*16*120)/2^23 это примерно равно 11 мегабайтам.
Uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
SetPenWidth(8);
SetPenColor(clBlue);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clLimeGreen);
Drawcircle(x,y,50);
inc(x,110);
end.