Производится одноканальная (моно) звукозапись с частотой дискретизации 16 кгц и количеством уровней квантования 256. запись длится 3 минуты, её результаты записываются в файл, сжатие данных не производится. определите приблизительно объем полученного файла в мбайтах.

256=2⁸, 8 бит глубина звука
I=(16*1000*8*3*60)/2²³=2,75 Мбайт

А) v = d * t * i * k v - информационный объем файла d - частота дискретизации t - время звучания i - глубина кодирования 1 сигнала k - количество каналов d1 = 8 кгц = 8000 гц t = 1 мин = 60 секунд k = 1 канал (моно-) i1 = 16 бит = 2 байта v1 = 8000 гц  * 60 c * 2 байта * 1  =  960000 байт =  937,5 килобайт = 0,91 мегабайт - информационный объем 1 звукового файла d2 = 24 кгц = 24000 гц t = 1 мин = 60 секунд k = 1 канал (моно-) i2 = 16 бит = 2 байта v2 = 24000 гц  * 60 c * 2 байта * 1 =  2880000 байт =  2812,5 килобайт =  2,75 мегабайт -  информационный объем 2 звукового файла детская песня - колыбельная медведицы - 2,09 мегабайт меньше 2 объема на 0,66 мб и больше 1 объема на 1,18 мб песня валентины толкуновой тебя любила - 1,05 мб больше 1 объема на 0,14  мб, меньше второго объема на 1,7 мб

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var k:=0;
  var Terminate:boolean;
  repeat
    Terminate:=True;
    var n:=ReadInteger('Введите номер месяца:');
    case n of
    1,3,5,7,8,10,12:Writeln('31 день');
    4,6,9,11:Writeln('30 дней');
    2:Writeln('28 дней в обычном году и 29- в високосном')
    else begin
      Writeln('Вы ошиблись, номер должен быть от 1 до 12');
      Inc(k);
      Terminate:=False
      end
    end
  until Terminate;
  if k>0 then Writeln('Вы ошиблись ',k,' раз(а).')
end.

Тестовое решение:
Введите номер месяца: 18
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 0
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 5
31 день
Вы ошиблись 2 раз(а).