Рассчитать объём квадрофонического звукового фрагмента длительностью звучания 2 с при частоте дискретизации 20 кгц и разрешении 16 бит.

Дано:             Решение: V=t*R*i*k

t=2 c                                 V=2*20000*16*2=1280000 Бит =160000 Байт                  

R=20 кГц                          =160 кБайт  

i=16 Бит           ответ: V=160 кБайт.

k = 2

V-?

Если в первом примере y=x^2( X в квадрате), то программа будет выглядеть следующим образом: Program pr1;
var y,x:real;
begin
writeln('Введите значение x');
readln(x);
y:=sqr(x);
writeln('ответ:', y);
end.

Если же у тебя в первом функция y=x*2 ( X умножить на 2), то программа будет выглядеть так:

Program pr1;
var y,x:real;
begin
writeln('Введите значение x');
readln(x);
y:=x*2;
writeln('ответ:', y);
end.

2. Program pr2;
var a,b,S:real;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);S:=a*b;
writeln('ответ:', S);
end.

Если в первом примере y=x^2( X в квадрате), то программа будет выглядеть следующим образом: Program pr1;
var y,x:real;
begin
writeln('Введите значение x');
readln(x);
y:=sqr(x);
writeln('ответ:', y);
end.

Если же у тебя в первом функция y=x*2 ( X умножить на 2), то программа будет выглядеть так:

Program pr1;
var y,x:real;
begin
writeln('Введите значение x');
readln(x);
y:=x*2;
writeln('ответ:', y);
end.

2. Program pr2;
var a,b,S:real;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);S:=a*b;
writeln('ответ:', S);
end.