1)V=2Int,где 2-стерео,I - разрядность карты, n - частота дискретизации, t - время звучания.Значит V=2*16*10000*20=6400000 бит,делим на 8,затем на 1024 - 781,25 Кбайт
2)V=Int,I - разрядность карты, n - частота дискретизации, t - время звучания.Значит 22050 *10 *1 = 220500 байт(8бит - 1байт,а 22,05 из кГц переводим в Гц путем умножения на 1000)
3)V=Int,I - разрядность карты, n - частота дискретизации, t - время звучания.t = V/(n*I).Значит t = 5505024/( 22050 *2) = 124,8 сек(Мб переводим в байты,а кГц в Гц)
Объяснение:
function Max(a, b, c: integer): integer;
var
m: integer;
begin
if a > b then
m := a
else
m := b;
if c > m then
m := c;
Max := m;
end;
function Min(a, b, c: integer): integer;
var
m: integer;
begin
if a < b then
m := a
else
m := b;
if c < m then
m := c;
Min := m;
end;
procedure Swap(var a, b: integer);
var
t: integer;
begin
t := a;
a := b;
b := t;
end;
var
a, b, c, t: integer;
begin
Write('Введи через пробел три числа: ');
Read(a, b, c);
Writeln('Max = ', Max(a, b, c), ', min = ', Min(a, b, c));
if b > a then
Swap(a, b);
if c > b then
begin
Swap(b, c);
if b > a then
Swap(a, b);
end;
Writeln(a, ' ', b, ' ', c);
end.
