Алфавит племени мумбо состоит из 2 символов . вождь племени произнес речь их 80 символов.сколько бит информации несет речь вождя ?

Ответ:     000000000 ответ:  

N- 2 сим.   i - ?     решение: n=2 в степени i 2 = 2 в первой степени i= 1 бит как то так

Во вложении файл с рабочей книгой ms excel 2003 sub abcd()       dim n as integer, a(1 to 8) as integer       dim r as range       n = 8       imax = 1       set r = range(cells(1, 1), cells(2, 8))       r.clearcontents 'очистка области       r.interior.color = rgb(255, 255, 255) 'очистка цвета заливки       for i = 1 to n               a(i) = int(30 * rnd)               if a(i) > a(imax) then imax = i               cells(1, i) = a(i)       next       t = a(imax)       cells(1, imax).interior.color = rgb(204, 255, 255)       range(cells(1, 1), cells(1, imax - .color = rgb(255, 255, 153)       for i = imax - 1 to 1 step -1               a(i + 1) = a(i)       next       a(1) = t       for i = 1 to n               cells(2, i) = a(i)       next       cells(2, 1).interior.color = rgb(204, 255, 255)       range(cells(2, 2), cells(2, .color = rgb(255, 255, 153) end sub

Const     n = 3;     m = 4; var     a: array[1..n,1..m] of integer;     i,j,min,ns: integer; begin {заполнение массива} writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               end;       writeln       end; {поиск минимального элемента} min: =a[1,1]; for i: = 1 to n do       for j: = 1 to m do               if a[i,j]< min then                     begin                     min: =a[i,j];                     ns: =i;                     end; writeln('минимальный элемент в строке №',ns); end.