М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
medusya
medusya
17.07.2021 16:12 •  Информатика

Рассчитайте информационный объём видеофайла длительностью 16 с частота кадра 25 кс каждый кадр имеет разрешение 1280-1024 px а цвет кодируется 24 битной rgb моделью, частота дискритезации звука составляет 44.1 кгерц а размер звука 2 байта

👇
Ответ:
Звук:
44100 отсчетов в секунду. Значит за 16 секунд = 44100*16=705600 отсчетов. Каждый отсчет 2 байта. Значит всего байт 705600*2=1411200
Видео:
25 кадров в секунду и всего 16 секунд. Всего = 25*16=400 кадров.

Каждый пиксель 24 бита RGB = 3 байта.
Каждый кадр 1280х1024 пикселя. Всего пикселей в кадре = 1310720.
Размер одного кадра 1310720*3 = 3932160 байт.

Объём видео = 3932160 байт/кадр * 400 кадров = 1572864000 байт

Общий объём = видео + звук = 1572864000 + 1411200 = 1574275200 байт. Примерно 1.466 ГБайт.
4,7(80 оценок)
Открыть все ответы
Ответ:
GangstaPro
GangstaPro
17.07.2021
1)
var 
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do 
If (a[i] > -1) then write(a[i]:2);
End.
2)
var 
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do 
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do 
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов') 
else writeln('Больше min элементов');
End.
3)
var 
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin     read(a[i]);
if (a[i] = x ) then inc(k);
end;  
writeln('kol = ',k) ;
end.
4,6(89 оценок)
Ответ:
Mysteryon
Mysteryon
17.07.2021
Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.

var
  i,n:integer;
  s:string;
begin
  Writeln('Введите текст, разделяя слова ровно одним пробелом');
  Readln(s);
  n:=0;
  for i:=1 to Length(s) do
    if s[i]=' ' then Inc(n);
  Writeln('Количество слов в тексте равно ',n+1)
end.

Тестовое решение:
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9
4,4(54 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ