Создайте макрос в Excel, который переводит расстояния из километров в версты (одна верста равна 1066,8 м.; ячейки, содержащие километры и версты, должны быть
подписаны).

Program DaNNuu;
uses crt;
const n=3;
var
  a:array [1..n] of integer;
  i,j,min,temp:integer;
begin
  randomize;
  {создание массива}
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      write (a[i]:5);
    end;
  {сортировка массива}
  for i:=1 to n-1  do
    begin
      min:=i;
      for j:=i+1 to n do
        if a[min]>a[j] then
          min:=j;
      temp:=a[i];
      a[i]:=a[min];
      a[min]:=temp;
    end;
  writeln();
  {вывод массива}
  writeln('Результат сортировки:');
  for i:=1 to n do
    write(a[i]:5);
end.

Первое задание:

2048*96*144 = 28311552 символов
28311552*16 = 452984832 информационный объем в битах

Переведем биты в байты, потом кбайты и  в мбайты:
1 Байт = 8 бит
1 Кбайт = 1024 Байт
1 Мбайт = 1024 Кбайт

452984832 / 8 = 56623104 Байт
56623104 / 1024 = 55296 Кбайт
55296 / 1024 = 54 Мбайт
ответ: 54 Мбайт.

Второе задание:

32*64=2048 символов на странице
16 бит=2 байта - 1 символ
2048*2=4*1024 байт=4 Кбайта - страница
4*8=32 Кбайта - доклад
ответ: доклад займет 32 Кбайта.

Третье задание:

38 символов(если правильно посчитал))
38*16=608 бит
608/8= 76 байтов
ответ: 76 байтов.