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.

Answer 2

Вот пример программы "Отгадайте число" на языке Pascal:

pascalCopy code
program GuessTheNumber;

var
  a, b: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел
  
  // Загадываем число от 1 до 100
  a := Random(100) + 1;
  
  writeln('Компьютер загадал число от 1 до 100.');
  
  repeat
    write('Попробуйте угадать число: ');
    readln(b);
    
    if b < a then
      writeln('Загаданное число больше.')
    else if b > a then
      writeln('Загаданное число меньше.')
    else
      writeln('Вы угадали число!');
      
  until b = a;
  
  readln;
end.

В этой программе компьютер загадывает случайное число в диапазоне от 1 до 100. Пользователь вводит свои предположения, и компьютер дает подсказки ("Загаданное число больше" или "Загаданное число меньше"). Программа продолжает запрашивать ввод пользователя, пока он не угадает число.

Обратите внимание, что эта программа использует процедуру Randomize, чтобы инициализировать генератор случайных чисел перед вызовом Random. Это необходимо, чтобы каждый раз при запуске программы числа генерировались по-настоящему случайно.