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

Question

95

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

категория: информатика

ответить

в избранное ссылка

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

evolka · Accepted Answer

64

evolka

28 февраля 2023

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.

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

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

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

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