Question

Котик загадывает случайное число от 1 до 10. Это число записано в переменной.
Котик тебя спрашивает: Какое число я загадал?
А затем сравнивает твой ответ с числом, которое загадал.
Если твой ответ равен числу, то ты выиграл.
Если число больше ответа, то котик говорит: “Мое число больше!”
Если число меньше ответа, то котик говорит: ”Мое число меньше!”
Всего дается 3 попытки, чтобы угадать число!
Для этого используй еще одну переменную попытки.
Попытки уменьшаются, когда ты ввел неправильное число.

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<b then WriteLn('Мое число больше!')else  

if a=b then

begin

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

k:=0;

end;

k:=k-1

until k<=0;

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

end.