Какой объем будет иметь чёрно-белое видео передаваемое с разрешением кадра 800 х 600, скоростью воспроизведения 24 кадра в секунду и длительностью 30 минут.(ответ округлите до десятых) ответ: гбайт какой объем будет иметь видео передаваемое с разрешением кадра 600 х 400 пикселей с 8 битовой глубиной цвета, скоростью воспроизведения 25 кадров в секунду и длительностью 1,5 минуты. известно, что звук, наложенный на видео имеет 128 уровней громкости, частота дискретизации равна 32000 гц, это стерео звук. (ответ округлите вверх до целых) в мбайтах

1. объем видео можно рассчитать из формулы: x=r*i*n*t, где r- количество пикселей на кадр, i-глубина цвета (бит), n-частота кадров (ед/ t- время(сек.)  глубину цвета  i получим из формулы: n=2^i, где n-количество цветов.у нас черно-белое изображение, значит 2 цвета. 2=2^i    i=1 бит r=800*600=480000 х=480000*1*24*(30*60)= 20736000000 бит = 2592000000 байт= 2531250 кбайт= 2471,92 мбайт =  2,4 гбайт ответ: 2,4 гбайт 2. рассчитаем объем видео: x=r*i*n*t, где r- количество пикселей на кадр, i-глубина цвета (бит), n-частота кадров (ед/ t- время(сек.)  х=(600*400)*8*25*(1,5*60)= 4320000000 бит= 540000000 байт= 527343,75 кбайт= 514,98 мбайт объем звука: х=i*n*t*k, где i - глубина кодирования звука (бит), n - частота дискретизации (гц), t- время ( k- количество каналов. глубину кодирования звука определим из формулы: n=2^i, где n- количество уровней громкости 128=2^i  i=7 х=7*32000*(1,5*60)*2= 40320000 бит = 5040000 байт= 4921,88 кбайт= 4,81 мбайт сложим полученные значения объема видео и звука: 514,98+4,81= 519,79 мбайт ответ: 520 мбайт

Function dec2oct(n: integer): string; var   c, s: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then result : = '0'   else result : = s end; var   m: array[1..8] of integer;   i: integer; begin   randomize;   for i : = 1 to 8 do   begin       m[i] : = random(10000);       writeln(m[i]: 5, '(10)=', dec2oct(m[i]), '(8)')   end end. тестовое решение:   973(10)=1715(8)   7245(10)=16115(8)   2511(10)=4717(8)   5136(10)=12020(8)   8002(10)=17502(8)   7101(10)=15675(8)   4277(10)=10265(8)   5916(10)=13434(8) если вместо функции нужна процедура, достаточно заменить несколько строчек. procedure dec2oct(n: integer; s: string); var   c: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then s : = '0' end;