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

Камера снимает видео без звука с частотой 60 кадров в секунду, при этом изображения используют палитру, содержащую 224 цвета . 10 секунд видео в среднем занимает 512 Кбайт. При записи файла на сервер полученное видео преобразуют так, что его частота кадров уменьшается до 20 кадров в секунду, а изображения преобразуют в формат, содержащий палитру из 256 цветов. Другие преобразования и иные методы сжатия не используются. Сколько Мбайт в среднем занимает 1 минуту преобразованной видеозаписи?

👇
Открыть все ответы
Ответ:
Kronk123
Kronk123
25.04.2021
1. a; c
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
program prim_a;
var m, n, k: integer;

begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
end.
4. a) 
program plowad;
var
a, h: real;

begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var 
a, b: integer;

begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
end.
4,5(25 оценок)
Ответ:
RitaTrott
RitaTrott
25.04.2021
Const
  n = 9;
var
  a:array[1..n,1..n] of integer;
  i,j,k,max: integer;

begin
  Randomize;
  Writeln('Исходная матрица');
  max:=-100;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if max<a[i,j] then max:=a[i,j]
    end;
    Writeln
  end;
 
  for i:=2 to n-1 do { не просматривать первую и последнюю строки }
    for j:=1 to n do
      if a[i,j]=max then a[i,j]:=0;
 
  Writeln('Результирующая матрица');
  for i:=1 to n do
  begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
  end;
end.

Тестовое решение:
Исходная матрица
 -19 -24 -24 -21   0 -12 -16  12   7
  19  -2  22  12  -7 -19  25 -20 -21
  18   4  -6   9   7  -9  21   1   5
  25 -17  10  22  -7 -18  10  -6  -3
  24  -2   2 -22 -11 -13   5  24  11
   1  -7  16  24   4 -19  -6   7  21
  -9  -3  -5  10 -16  25   9 -15   4
  23  22 -20  14 -23  24   9 -24   8
   2  14 -10 -19 -21   8   6  -6 -17
Результирующая матрица
 -19 -24 -24 -21   0 -12 -16  12   7
  19  -2  22  12  -7 -19   0 -20 -21
  18   4  -6   9   7  -9  21   1   5
   0 -17  10  22  -7 -18  10  -6  -3
  24  -2   2 -22 -11 -13   5  24  11
   1  -7  16  24   4 -19  -6   7  21
  -9  -3  -5  10 -16   0   9 -15   4
  23  22 -20  14 -23  24   9 -24   8
   2  14 -10 -19 -21   8   6  -6 -17
4,8(95 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ