42.сколько мбайт информации содержит сообщение объёмом 2^30 бит? в ответе укажите одно число. с дано и решением

ДАНО:2^30
НАЙТИ В МБАЙТАХ
2^30/2^3/2^10/2^10=2^7=128

1)

100101₂ = 37₁₀

56₈ = 46₁₀

A₁₆ = 10₁₀

2)   1E₁₆   56₈   0110111₂

Объяснение:

1)

100101₂ = 1 * 2⁵ + 0 * 2⁴ + 0 * 2³ + 1 * 2² + 0 * 2¹ + 1 * 2⁰ = 1 * 32 + 0 * 16 + 0 * 8 + 1 * 4 + 0 * 2 + 1 * 1 = 32 + 4 + 1 = 37₁₀

56₈ = 5 * 8¹ + 6 * 8⁰ = 5 * 8 + 6 * 1 = 40 + 6 = 46₁₀

A₁₆ = A * 16⁰ = 10 * 1 = 10₁₀

2)

0110111₂ = 110111₂ (отбросили незначащий 0) = 1 * 2⁵ + 1 * 2⁴ + 0 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 1 * 32 + 1 * 16 + 0 * 8 + 1 * 4 + 1 * 2 + 1 * 1 = 32 + 16 + 4 + 2 + 1 = 55₁₀

56₈ = 5 * 8¹ + 6 * 8⁰ = 5 * 8 + 6 * 1 = 40 + 6 = 46₁₀

1E₁₆ = 1 * 16¹ + E * 16⁰ = 1 * 16 + 14 * 1 = 16 + 14 = 30₁₀

30₁₀   46₁₀   55₁₀

1E₁₆   56₈   0110111₂

В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.

A₁₆ = 10₁₀   B₁₆ = 11₁₀   C₁₆ = 12₁₀   D₁₆ = 13₁₀   E₁₆ = 14₁₀   F₁₆ = 15₁₀  

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.