Question

С помощью оператора Readln,writlen,Random составить программу которая будет сравнивать число вводимое с клавиатуры со случайным числом в диапазоне от 0 до 100 результат выводится на экран.

Answer 1

program first;

var a,b: integer;

begin

randomize;

{Получаем значение с клавиатуры}

readln(a);

{Выбираем случайное число}

b:= random( 100);

writeln(b);

{Сравниваем данные значения}

if a = b then writeln('Данные числа равны')

else if a > b then writeln('Первое число больше второго')

else if b > a then writeln('Первое число меньше второго');

end.

Answer 2

Для создания программы, которая сравнивает число, вводимое с клавиатуры, со случайным числом в диапазоне от 0 до 100, и выводит результат на экран, можно использовать язык программирования Pascal. Вот пример программы:

pascalCopy code
program CompareNumbers;

uses
  SysUtils;

var
  userInput, randomNumber: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

  // Генерируем случайное число в диапазоне от 0 до 100
  randomNumber := Random(101);

  // Выводим сообщение и просим пользователя ввести число
  Write('Введите число от 0 до 100: ');

  // Считываем введенное число
  Readln(userInput);

  // Сравниваем введенное число с сгенерированным случайным числом
  if userInput = randomNumber then
    Writeln('Вы угадали!')
  else
    Writeln('Вы не угадали. Загаданное число: ', randomNumber);

  Readln; // Чтобы программа не закрылась сразу после вывода результата
end.

Пользователь должен ввести число от 0 до 100, после чего программа сравнит его с сгенерированным случайным числом и сообщит, угадал пользователь или нет.