"сколько лет бабушке? "компьютер загадывает целое число от 1 до 100. пользователь вводит с клавиатуры некоторое число и получает один из ответов: "мое чило меньше","мое число больше","вы угадали".процесс повторяется до тех пор пока не будет угадано число. на паскале сделать
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.