Pascal (Угадай число) помогите разобраться

Pascal (Угадай число) помогите разобраться

Задать свой вопрос
Борис Михе
В чем?
Дарина Нагорнева
Как сделать это задание!
1 ответ
//Моя интуиция дает подсказку мне, что это обязано выглядеть так
var a,b:integer;
begin;
randomize;
a:=random(10);
readln(b);
if a=b then writeln('Угадала') else writeln('Не угадала, было загадано:',a);
end.
Шурик Ветчинов
А мне кажется, что тут надобно организовать поиск при подмоги разделения промежутков напополам: Ты загадал однозначное число, к примеру 4. Я спрашиваю: загаданное число больше 5 (отрезок от 1 до 10 я поделил напополам) Ты отвечаешь : НЕТ. Я спрашиваю это число меньше 3 (я поделил отрезок от 1 до 5 пополам. Ты отвечаешь Нет.  Я разговариваю: загадано 4 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт