Ирина сняла видео, которое длится 34 минуты 8 секунд на выступлении своей дочери. Видео было на камеру, которая фиксирует 30 кадров в секунду с разрешением одного кадра 2048×1024 пикселей в формате HighColor(16 бит на пиксель). Аудиодорожка записывается в формате стерео с частотой дискретизации 64 кГц и глубиной кодирования 32 бит.Ирина хочет отправить это видео своему мужу по каналу связи со скоростю передачи 100 Мбит/с. Через сколько секунд это видео придёт мужу Ирины?
var
i,j,k:Integer;
Chislo : Integer;
begin
Memo1.Clear;
for i := 0 to 31 do
begin
Chislo := 3;
for j := 0 to 4 do
begin
if ((i and Trunc(IntPower(2,j)))=0) then
Dec(Chislo)
else
Chislo := 3*Chislo;
if (Chislo=16) then
begin
Memo1.Lines.Append('УРА - Нашли');
for k := 0 to j do
if ((i and Trunc(IntPower(2,k)))=0) then
Memo1.Lines.Append('1')
else
Memo1.Lines.Append('2');
Memo1.Lines.Append('');
end;
end;
end;
end;