Нужно решить задачи по Информатике 11 класс
8 заданий

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=Arr('первое', 'второе','третье','четвертое','пятое');
  var p,r:real;
  var c:char;
  Write('Введите первое число: '); Readln(r);
  for var i:=0 to 3 do begin
    Write('Выберите ',s[i], ' действие (a) сложить, b) вычесть,');
    Write('c) умножить, d) разделить): '); Readln(c);
    Write('Введите ',s[i+1],' число: '); Readln(p);
    case c of
    'a':r+=p;
    'b':r-=p;
    'c':r*=p;
    'd':r/=p;
      end;
    Writeln('Результат: ',r)
    end
end.

1920*1080*24 бит пикс * 24 кадра * 1 сек = 1194393600 бит вес 1 секунды видео-дорожки в видеоролике

((ln(65536)/ln(2)) бит на Гц * (192 * 1000) Гц * 24 канала * 1 сек = 73728000 бит вес одной секунды аудио-дорожки в видеоролике

было раздано 5805 мбайт / 5 мбайт = за 1161 секунд.
вес файла 25 мбайт сек * 1161 сек = 29025 мбайт * 1024 * 1024 * 8 = 243479347200 бит вес файла.

получается нужно подуравнять чтоб под размер получилось
(1194393600*x)+(73728000*x)=243479347200
1194393600 + 73728000 = 1268121600
243479347200 / 1268121600 = 192
x=192 сек