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

Тема циклы

Question

Информатика

Хаврония

11 сентября, 11:24

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

Тема циклы

+5

Ответы (1)

Знаете ответ?

Аза · Answer 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.