Задание:
Нужна помощь: Составить программу по которой компьютер угадает число введеное с клавиатуры (с помощью repeat), с пояснениями (игра похожа на игру угадайчисло, но угадывает компьютер, а мы задумываем)
Решение:
var x,y,a: integer; c: boolean; beginreadln (x); {считываем}a: =1; repeatwriteln (a,' попытка выбор компьютера пал на — '); y: =random (x)+1; {задаем промежуток рандомом}write (y); if x=y {сравниваем} then c: =true; {выходим из цикла в случае успеха}until c; {если с=true тогда выход из цикла, иначе крутимся дальше}writeln ('Компьютер сделал ',a,' попыток.'); end. Более доработанная и понятная, если возникают какие-то вопросы — пиши в личку.
Знаете другой ответ?