Сообщение занимает 2 страницы и содержит 1/16 кбайта информации. на каждой странице записано 256 символов. какова мощность использованного алфавита?

1) 2 * 256 =   512 символов всего на 2 страницах 2) 1/16 кб * 1024 = 64 байта * 8 =  512 бит - объем сообщения 3)  512 бит / 512 симв = 1 бит - глубина кодирования 1 символа 4) n = 2^i n = 2^1 = 2 символа - мощность используемого алфавита

#include <iostream>

#include <cstdlib>

#include <ctime>

#include <vector>

using namespace std;

int main()

{

int i, j, sum=0, n, m, p=1;

cout<<"Введите количество строк:"<<endl;

cin >> n;

cout<<"Введите количество столбцов:"<<endl;

cin >> m;

 int k=i, h=j;

int a[n][m];

int max = a[0][0];

cout<<"Исходный массив:"<<endl;

for (i=0; i<n;i++)

 {

   for (j=0;j<m;j++)

     {

         a[i][j]=-10 + rand()%20;

         cout<<a[i][j]<<" ";

     }

   cout<<endl;

 }

for (i = 0; i < n; i++)

{

 {

   for (j = 0; j < m; j++)

     {

      sum += a[i][j];    

     }

       cout<<"Сумма "<<i<<" строки равна: "<<sum<<endl;

       sum = 0;

  }

 }    

for (j = 0; j < m; j++)

{

 for (i = 0; i < n; i++)

   {

     p *= a[i][j];  

   }

      cout<<"Произведение "<<j<<" столбца равно: "<<p<<endl;

      p = 1;    

 }

for(k=0, h=0; k<n && h<m; k++, h++)

{

 if(a[k][h]>max)

   {

     max = a[k][h];

   }

}

 cout<<"Наибольшее число на главной диагонали: "<<max<<endl;

Var       i1, i2, i3, i4, i5, i6: byte;       k: longint; begin       for i1 : = 0 to 9 do               for i2 : = 0 to 9 do                       for i3 : = 0 to 9 do                               for i4 : = 0 to 9 do                                       for i5 : = 0 to 9 do                                               for i6 : = 0 to 9 do                                                       if i1 + i2 + i3 = i4 + i5 + i6 then begin                                                               writeln(i1, i2, i3, i4, i5, i6);                                                               k : = k + 1;                                                       end;       writeln(k); end. var       money: array[1..7]of integer;       count: array[1..7]of integer;       s, i: integer; begin       money[1] : = 1;       money[2] : = 2;       money[3] : = 5;       money[4] : = 10;       money[5] : = 50;       money[6] : = 100;       money[7] : = 500;             write('s = ');       readln(s);             i : = 7;       repeat               if s > = money[i] then begin                       s : = s - money[i];                       count[i] : = count[i] + 1;               end               else i : = i - 1;       until s < = 0;             for i : = 7 downto 1 do               if count[i] > 0 then                       writeln(money[i], ' p. = ', count[i], ' шт.') end.