Сообщение занимает 3 страницы. на каждой странице по 48 строк. в каждой строке по64 символа . найдите информациооный объем такого текста, если при его составлении использовали 256-символьный алфавит.

Символов всего кол-во бит на символ находится так    бит на символ бит всего это равно 9 кбайт ответ: 9 кбайтнадеюсь на "лучший ответ"

Первые эвм были доступны исключительно программистам. поэтому первым типом по стали системы программирования. программисты работали на языке машинных кодов, что было весьма сложно. эвм первого и второго поколений были приспособлены, прежде всего, для выполнения расчетов. а в таких расчетах часто приходится вычислять функции: квадратные корни, синусы, логарифмы и пр. для вычисления этих функций программисты создавали стандартные программы, к которым производили обращения из своих расчетных программ. стандартные программы хранились все вместе на внешнем носителе (тогда это преимущественно были магнитные ленты) . такое хранилище называлось библиотекой стандартных программ. библиотеки стандартных программ (бсп) — первый вид программного обеспечения эвм.

Var   f: text;   i, j, n, n1: integer;   matrix: array[,] of real; begin   assign(f, 'informat8.txt');   reset(f);   //найдём количество строк в матрице   while not eof(f) do     begin     readln(f);     inc(n);   end;   writeln('исходная матрица размерности ', n, 'x', n);   //инициализируем массив (размерность узнали выше)   matrix : = new real[n, n];   reset(f);   // далее работаем с матрицей размерности  [0..n-1] (инициализация происходит, начиная с 0)   for i : = 0 to n - 1 do   begin     for j : = 0 to n - 1 do     begin       read(f, matrix[i, j]);       write(matrix[i, j]: 8: 2);     end;     readln(f);     writeln;   end;   writeln;   n1 : = 0;   for i : = 0 to n - 1 do     for j : = 0 to n - 1 do       if matrix[i, j] < 0 then inc(n1);   if n1 > round(n * n / 2) then   begin     writeln('отрицательных элементов больше половины');     //удваиваем элементы в чётных строках     for i : = 0 to n - 1 do     begin       if odd(i) then begin         for j : = 0 to n - 1 do             matrix[i, j] : = matrix[i, j] * 2;       end;     end;   end else   begin     writeln('отрицательных элементов меньше половины или ровно половина');     //удваиваем элементы последнего столбца     for i : = 0 to n - 1 do       matrix[i, n - 1] : = matrix[i, n - 1] * 2;   end;       writeln('результирующая матрица');   for i : = 0 to n - 1 do  begin     for j : = 0 to n - 1 do       write(matrix[i, j]: 8: 2);     writeln;   end; end.результат работы: