Котик загадывает случайное число от 1 до 10. Это число записано в переменной.
Котик тебя спрашивает: Какое число я загадал?
А затем сравнивает твой ответ с числом, которое загадал.
Если твой ответ равен числу, то ты выиграл.
Если число больше ответа, то котик говорит: “Мое число больше!”
Если число меньше ответа, то котик говорит: ”Мое число меньше!”
Всего дается 3 попытки, чтобы угадать число!
Для этого используй еще одну переменную попытки.
Попытки уменьшаются, когда ты ввел неправильное число.
Котик загадывает случайное число от 1 до 10. Это число записано в переменной.
Котик тебя спрашивает: Какое число я загадал?
А затем сравнивает твой ответ с числом, которое загадал.
Если твой ответ равен числу, то ты выиграл.
Если число больше ответа, то котик говорит: “Мое число больше!”
Если число меньше ответа, то котик говорит: ”Мое число меньше!”
Всего дается 3 попытки, чтобы угадать число!
Для этого используй еще одну переменную попытки.
Попытки уменьшаются, когда ты ввел неправильное число.
Котик тебя спрашивает: Какое число я загадал?
А затем сравнивает твой ответ с числом, которое загадал.
Если твой ответ равен числу, то ты выиграл.
Если число больше ответа, то котик говорит: “Мое число больше!”
Если число меньше ответа, то котик говорит: ”Мое число меньше!”
Всего дается 3 попытки, чтобы угадать число!
Для этого используй еще одну переменную попытки.
Попытки уменьшаются, когда ты ввел неправильное число.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
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.