Примеры информационных сообщений которые несут 1 бит информации

Любой вопрос, на который можно ответить с определённостью "да" или "нет" несёт в себе 1 бит информации. примеры: "железо - это металл или нет? ","в корзине 2 шара - белый и чёрный. вынимают наугад один шар. вопрос, это белый шар? " и т.д. и т.п.                                  

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.row(0).sum+a.row(n-1).sum;   s+=a.col(0).skip(1).take(n-2).sum+a.col(m-1).skip(1).take(n-2).sum;   writeln('сумма по периметру ',s) end. пример количество строк в матрице: 4 количество столбцов в матрице: 5 *** исходная матрица [4,5] ***   87 -67  11  59  46   -13  86 -74  20 -98   -74  24    6  51  74   26 -93  36  40  66 сумма по периметру 100

Var       a: array[1..100, 1..100] of integer;       i, j, m, n, count2, countx, x: integer; begin       {ввод матрицы}       n : = 10;             writeln('данные матрицы: ');       for i : = 1 to n do       begin               for j : = 1 to n do               begin                       a[i, j] : = random(200) - 100;                       write(a[i, j]: 4, ' ')               end;               writeln;       end;             write('x = ');       readln(x);       count2 : = 0;       countx : = 0;       for i : = 1 to n do               for j : = 1 to n do               begin                       if a[i, j] = x then                               countx : = countx + 1;                       if (a[i, j] > = 10) and (a[i, j] < = 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then                               count2 : = count2 + 1;               end;       writeln('countx = ', countx);       writeln('count2 = ', count2); end.