Если было роздано 8100 МБайт, а скорость раздачи втрое меньше скорости скачивания (15/5=3), то скачано было 8100*3=24300 МБайт. Определим величину видеопотока данных. 1920*1080*2*18=74649600 (Байт/с) = 74649600/2^20=71.19 (МБайт/с) В этом выражении 2 Байта- это 16/8 бит глубины цвета. Определим величину аудиопотока данных. Для хранения отсчета при 4096 уровнях квантования требуется 12 бит (2^12=4096). Упаковки нет, поэтому будет использовано целое число байт - 2. Тогда аудиопоток составит 192000*2*48=18432000 (Байт/с)=18432000/2^20=17.58 (МБайт/с). Суммарный поток 71.19+17.58=88.77 (Мбайт/с) Тогда длительность видеоролика составит 24300/88.77 ≈ 273.7 (c)
Var J: Array[1..32,1..32] Of Integer; i, j, S: Integer; Begin //заводим массив For i:=1 to 32 do For j:=1 to 32 do begin Writeln("Введите J[",i,",",j,"]"); Readln(J[i,j]); End; //Сумма всех чисел S:=0; For i:=1 to 32 do For j:=1 to 32 do S:=S +J[i,j]; Writeln("Сумма всех чисел = ",S); S = 0; //Минимальное четное число For i:=1 to 32 do For j:=1 to 32 do If (J[i,j] mod 2 = 0) And (J[i,j]<S) Then S:= J[i,j];
Writeln("Минимальное четное число = ",S); S:=0; //кол-во отрицательных нечетных чисел For i:=1 to 32 do For j:=1 to 32 do If (J[i,j] mod 2 <> 0) And (J[i,j] <0)Then S:= S+1; Writeln("кол-во отрицательных нечетных чисел = ",S); S:=0; //сумма отрицательных нечетных чисел For i:=1 to 32 do For j:=1 to 32 do If (J[i,j] mod 2 <> 0) And (J[i,j] <0)Then S:= S+J[i,j]; Writeln("сумма отрицательных нечетных чисел = ",S); End;
8
Объяснение:
Можно в калькулятор выбрать режим "Программист" и посмотреть