Нужна помощь: Составить программу по которой компьютер угадает число…

Question

Нужна помощь: Составить программу по которой компьютер угадает число введеное с клавиатуры (с помощью repeat), с пояснениями (игра похожа на игру угадайчисло, но угадывает компьютер, а мы задумываем)

Answer 1

71

mr-mikhail-melnik

03 марта 2023

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. Более доработанная и понятная, если возникают какие-то вопросы — пиши в личку.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: