• Напишите программу на языке pascal которая будет угадывать число от 1 до 1000 задуманное пользователем за наименьщее число шагов если программа предложила большее число то пользователь нажимает < если программа предложила меньшее число то пользователь нажимает > а если угадала то =
    Тема циклы

Ответы 1

  • var min,max,n:integer;c:string;Begin    min:=1;    max:=1000;    repeat        n:=(max+min) div 2;        writeln(n);        read(c);        case c of            ">": min:=n+1;            "<": max:=n-1;        end    until (c="=");End.

    • Автор:

      hector
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years