Котик загадывает случайное число от 1 до 10. Это число записано в переменной.

Котик тебя спрашивает: Какое число я загадал?

А затем сравнивает твой ответ с числом, которое загадал.

Если твой ответ равен числу, то ты выиграл.

Если число больше ответа, то котик говорит: "Мое число больше!"

Если число меньше ответа, то котик говорит: "Мое число меньше!"

Всего дается 3 попытки, чтобы угадать число!

Для этого используй еще одну переменную попытки.

Попытки уменьшаются, когда ты ввел неправильное число.

Question

Информатика

Доримедонт

9 сентября, 17:16

Котик загадывает случайное число от 1 до 10. Это число записано в переменной.

Котик тебя спрашивает: Какое число я загадал?

А затем сравнивает твой ответ с числом, которое загадал.

Если твой ответ равен числу, то ты выиграл.

Если число больше ответа, то котик говорит: "Мое число больше!"

Если число меньше ответа, то котик говорит: "Мое число меньше!"

Всего дается 3 попытки, чтобы угадать число!

Для этого используй еще одну переменную попытки.

Попытки уменьшаются, когда ты ввел неправильное число.

+3

Ответы (1)

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

Дилроб · Answer 1

var a, b, k:integer;

begin

b:=random (10) + 1;

WriteLn ('Какое число я загадал?') ;

k:=3;

repeat

Write ('У тебя ', k,' попытки (-а). Введи число: ') ;

ReadLn (a) ;

if a>b then WriteLn ('Мое число меньше!') else

if a
if a=b then

begin

WriteLn ('Молодец! Угадал!') ;

k:=0;

end;

k:=k-1

until k<=0;

if k=0 then WriteLn ('Проиграл!') ;

end.