Файл размером 7мбайт передаёться за 40сек сколько можно перевести за 15 сек ответ в кбайт​

№1.
Тысячи путей ведут к заблуждению, к истине - только один.
Для начала надо посчитать, сколько всего символов в данном предложении, следует считать знаки препинания и пробелы. 
Посчитав все знаки (Итого:57), мы получаем, что вес предложения 57 байт, переводим в биты, то есть умножаем на 8 (1 байт = 8 бит):
57*8=456.

№2.
Кодировка Unicode - это кодировка, каждый символ которой весит 16 бит. Итак, я посчитала количество знаков в предложении (Итого:32). Дальше: 16*32=512 бит.

№3.
Итак, мы видим, что из 16-битной кодировки получилась 8-битная, а это значит, что она уменьшилась вдвое.
8x=800
x=100 (у тебя ошибка, я посмотрела аналогичные задания, отличающиеся только значениями)

№4 допишу в комментарии.

Program n1;
   uses crt;
const nn=1000;
var 
     m: array[1..nn,1..nn] of integer;
     n,i,j: integer; 
     s: real;
begin
    clrscr;
    randomize;
//Определяем размеры массива
writeln('Введите размерность'); readln(n);
//Заполняем массив рандомными числаслами
for i:=1 to n do
   for j:=1 to n do m[i,j]:=random(100)-50;
//Выводим таблицу(массив) на экран
for i:=1 to n do begin
  for j:=1 to n do write(m[i,j]:4);  writeln; 
end;
//Считаем среднее арифметическое столбцов и выводим номера
for j:=1 to n do begin 
  s:=0; {Обнуляем переменную перед началом каждого вложенного цикла} 
     for i:=1 to n do begin 
          s:=s+m[i,j]; {Считаем сумму элементов столбца}
      end;
   s:=s/n; {Считаем среднее арифметическое} 
 if s<0 then write(j:3); {Проверяем условие задачи}
 end;
 end.