Петя и коля играют в следующую игру. петя задумывает натуральное число, не превосходящее 8.коля должен это число отгадать. он может задавать пете вопросы, допускающие только ответы да или нет. коля старается за наименьшее число вопросов отгадать число, задуманное петей. его стратегия основана на деление числового отрезка пополам и выяснении, в какой из половин находится задуманное число

Держи, может ответ сойдет и в виде схемы

Сохранение текстовой информации страницы
1. Выделите фрагмент текста, который хотите сохранить.
2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст
попадет в буфер обмена.
3. Откройте любой текстовый редактор, например Word, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.
Что дальше делать с файлом, решайте сами.

Сохранение картинки
Щелкните правой кнопкой мыши по понравившейся картинке. В открывшемся контекстном меню выберите строку Сохранить рисунок как. Далее - как всегда: указываете имя файла и выбираете папку, в которой следует сохранить файл с изображением.

Сохранение всей страницы целиком
1. Выполните команду Файл - Сохранить как файл.
2. В открывшемся окне в поле Тип файла выберите вариант, например HTML-файл с изображениями или веб-страница полностью.



 

3. Как всегда, задайте имя файла и выберите папку, в которой она будет храниться.
Теперь вы в любой момент сможете посмотреть содержимое сохраненной странички, не подключаясь к Интернету.

Сохранение фрагмента страницы
1. Выделите фрагмент страницы, включая не только текст, но и изображения.
2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст попадет в буфер обмена.
3. Откройте текстовый редактор, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.

Успешной Вам работы

Var a: array [1..5, 1..6] of real;
      b: array [1..5] of real;
      i, j: integer;
begin for i:=1 to 5 do
          begin read(a[i,1]);
                    b[i]:=a[i,1];
                   for j:=2 to 6 do
                    begin read(a[i,j]);   {ввод элементов массива в цикле с параметром}
                              if (b[i]>a[i,j]) then b[i]:=a[i,j];
                    end;
                    writeln;    {для перехода на новую строку}
          end;
          for i:=1 to 5 do
          write(b[i], ' ');
readln;
end.