Ребят, тут немного, много времени не займёт, мне очень нудно Отметьте, какие сравнение верны и неверны.

А) 3 байта > 24 бита
Б) 1536 бит < 1,5 Кбайта
В) 100 т < 1 Кбайт
Г) 8192 Бит = 1 Кбайт
Д) 200 байт < 0,25 Кбайт

2)установите верное соотношение:

( выбирать из: 0,00004 Мб; 85,5 Кб; 91226112 байт; 0,0005 мб; 4000 бит; 58720256 бит.)

А) 7 МБ =
Б) 87 Гб =
В) 46 байт =
Г) 500 байт =
Д) 7000000 бит =
Е) 0,5 Кб =

3) Считая, что каждый символ кодируется одним байтом, оцените информационный объём следующего предложения: "Мой дядя самых честных правил".

Выберите один ответ:

А) 32 байта
Б) 31 бит
В) 31 байт
Г) 27 бит

4) Мощность алфавита равна 64. Сколько Кбайт памяти потребуется, чтобы сохранить 128 страниц текста, содержащего в среднем 256 символов на каждой странице?

Выберите один ответ:

А) 26 кбайт
Б) 32768 кбайт
В) 196608 кбайт
Г) 24 кбайт

5) В коробке лежат 64 шара. Сколько бит информации несёт сообщение о том, что достали жёлтый шар.
ответ запишите в виде числа бит: ...

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998

Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.