Question

Решить задачу в Паскале (Программа "Отгадайте число", Отгадать целое число, которое "загадал" компьютер в определенном диапазоне. a – число, "загаданное" компьютером;
b – очередное число, вводимое пользователем.)​

Answer 1

Program GuessTheNumber;

var

 a, b: integer;

begin

   randomize;

   a := random(100) + 1;

   repeat

       write('Enter a number: ');

       readln(b);

       if a = b then

       writeln('You guessed the number!')

       else if a > b then

       writeln('The number is greater than ', b)

       else

       writeln('The number is less than ', b);

   until a = b;

   end.