Котик загадывает случайное число от 1 до 10. Это число записано
Котик загадывает случайное число от 1 до 10. Это число записано в переменной.
Котик тебя спрашивает: Какое число я загадал?
А потом сопоставляет твой ответ с числом, которое загадал.
Если твой ответ равен числу, то ты выиграл.
Если число больше ответа, то котик разговаривает: Мое число больше!
Если число меньше ответа, то котик говорит: Мое число меньше!
Всего дается 3 попытки, чтоб угадать число!
Для этого используй еще одну переменную пробы.
Пробы убавляются, когда ты ввел неправильное число.
var a,b,k:integer;
begin
b:=random(10)+1;
WriteLn('Какое число я загадал?');
k:=3;
repeat
Write('У тебя ',k,' попытки(-а). Введи число: ');
ReadLn(a);
if agt;b then WriteLn('Мое число меньше!')else
if alt;b then WriteLn('Мое число больше!')else
if a=b then
begin
WriteLn('Молодец! Угадал!');
k:=0;
end;
k:=k-1
until klt;=0;
if k=0 then WriteLn('Проиграл!');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.