60

"сколько лет бабушке? "Компьютер загадывает целое число от 1 до 100. Пользователь…

13 марта 2023

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

категория: информатика



35

var a,answer: integer; begin randomize; a: =random (101); while (a<>answer) do begin readln (answer); if (answer>a) then writeln ('Загаданное число меньше') else writeln ('Загаданное число больше'); end; writeln ('Вы угадали число! '); end.

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


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...