В результате выполнения фрагмента программы: а:=6; b:=22; а:=а-b/2; if a>b then c:=a+b else c:=b-a; переменная "с" примет значение:

а=6

b=22

a=a-b/2

if a>b then

var //это ключевое слово показывает что началось объявление переменных
  b, i:integer;  //тут показали что переменные b, i  типа integer т.е. целые
  Summ:real; {тут показали что переменные Summ  типа real т.е. дробная в ней будет хранится наша сумма}
begin // это слово показывает на начало выполнения программы
  Summ := 0;  //присваиваем начальное значение суммы
  write('b = '); readln(b);  //выводим на экран 'b = ' и считываем b
  for i := 1 to b do {повторяем следующую операцию b раз причем каждый раз i будет увеличиваться на 1 изначально i присваивается 1}
    Summ := Summ + i * i / 2; {присваиваем сумме ее же значение плюс сразу  квадрат переменной i деленный на 2}
  writeln('S = ', Summ); //выводим 'S = ' и за ним сразу значение суммы
  readln; //ожидаем нажатия клавиши enter
end. //конец выполнения программы

Размер цифрового моноаудиофайла измеряется по формуле:     A = D*T*i,

где D – частота дискретизации (Гц), T – время звучания или записи звука(сек), i - глубина кодирования(байт)

 

т.к. у нас стерео файл, то он будет занимать в 2 раза больше места при тойже продолжительности(т.к. в нем хранится 2 монодорожки)

 

16 бит = 2 байта

 

А = 44000 * 300 * 2 = 26400000 байт = 25781,25 килобайт =  25,177 мегабайт

 

это для монофайла

 

а для стерео в 2 раза больше

 

52800000 байт = 51562,5 килобайт = 50,354 мегабайт