Игра для PascalABC.NET (версия 1)
var
a, b, c, c1, k: integer;
d: char;
begin
write('Давайте поиграем. Задумайте целое число и никому не говорите его. А я посредством ваших ответов на мои вопросы угадаю его. Введите два целых числа, таких, что первое меньше второго, и между которыми лежит задуманное вами число: ');
readln(a, b);
k := 0;
c := 1;
c1 := 0;
repeat
k := k + 1;
c := (a + b) div 2;
if c = c1 then begin writeln('Ваше число равно ', c + 1, '.'); break end;
write('Ваше число меньше, больше или равно ', c, '? В качестве ответа напишите символ <,> или = соответственно: ');
readln(d);
case d of
'=': writeln('Ваше число равно ', c, '.');
'<': b := c;
'>': a := c;
else writeln( 'Вы неправильно написали ответ на заданый вопрос.');
end;
c1 := c;
until d = '=';
if d = '=' then writeln('Я угадал ваше число за количество шагов, равное ', k, '.') else writeln('Я угадал ваше число за количество шагов, равное ', k - 1, '.')
end.
Комментарии:
Нету комментариев для вывода...