Скорость передачи данных через модемное соединение равна 122880 бит/c. Передача графического файла через данное соединение заняла 1 минуту. Определите количество бит, используемых для кодирования 1 пикселя, если символов в переданном тексте, если известно, что изображение было размером 640х480 пикселей?
2.В ячейке электронной таблицы С1 записана формула =$D1+D$2. Какой вид приобретет формула, если ячейку С1 скопировать в ячейку DЗ?

Сначала выведем нужную формулу.а) Определим объем памяти, необходимый для хранения 1с звучания.Частота дискретизации 44,1 кГц означает, что за 1с делается 44100 отсчетов (измерений) уровня звукового сигнала. Глубина кодирования 24 бита = 24/8 = 3 байта означает, что для хранения одного отсчета в одном канале потребуется 3 байта. В режиме стерео используется два канала, поэтому количество байт, необходимое для одного отсчета составит 2×3=6 байт. Тогда для 1с звучания потребуется 44100×6 = 264600 байт.

Предлагается следующий алгоритм.
1. Ввести время записи в минутах n.
2. Перевести минуты в секунды, умножив n на 60.
3. Получить размер файла в байтах, умножив результат (2) на 264600.
4. Перевести результат в мегабайты, поделив результат (3) на 1024².
5. Округлить результат (4) до целых в большую сторону.
6. Вывести значение, полученное в (5)

Конечная формула:



PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadReal('Введите время записи в минутах');
  var v:=Ceil(264600*60*n/1024/1024); // округление "вверх"
  Writeln('Размер файла ',v,' Мбайт')
end.

Const n = 5;
  m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(21)-10; write(a[i,j]:4);
    end;
    writeln;writeln;
  end;
  //сумма всех элементов массива
  for i:=1 to n do
    for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
    s:=0;
    for j:=1 to m do begin
      s:=s+a[i,j];
    end;
    writeln ('Строка: ',i,' сумма:',s);
  end;   
end.