"Угадай число" - вывести количество попыток

@Delta21 · Регистрация: 07.12.2013

Author24 — интернет-сервис помощи студентам

"Угадай число". Компьютер загадывает число от 1 до 100. Пользователь вводит с клавиатуры некоторое число и получает один из ответов: "Мое число больше", "Мое число меньше" или "Вы угадали". Процесс продолжается до тех пор, пока будет угадано задуманное число. Вы вести за какое количество попыток Вы угадали число.

@Puporev · 15.12.2013, 09:36

Pascal

uses crt;
var a,b,k:integer;
begin
randomize;
a:=1+random(100);
writeln('Вводите числа от 1 до 100, пока не угадаете задуманное число');
k:=0;
repeat
read(b);
if b<a then writeln('Мое число больше')
else if b>a then writeln('Мое число меньше')
else writeln('Вы угадали');
k:=k+1;
until b=a;
write('Количество попыток=',k)
end.

Правила угадывания: начнем с 50 и потом будем называть середину интервала в зависимости от ответа

@Delta21 0 / 0 / 0 Регистрация: 07.12.2013 Сообщений: 15
		1
	"Угадай число" - вывести количество попыток 15.12.2013, 06:48. Показов 9361. Ответов 1 Метки нет (Все метки) "Угадай число". Компьютер загадывает число от 1 до 100. Пользователь вводит с клавиатуры некоторое число и получает один из ответов: "Мое число больше", "Мое число меньше" или "Вы угадали". Процесс продолжается до тех пор, пока будет угадано задуманное число. Вы вести за какое количество попыток Вы угадали число. 0

	15.12.2013, 09:36

"Угадай число" - вывести количество попыток

Решение