Question

Написать программу, которая выводит пример на умножение двух однозначных чисел, которые выбираются случайным образом, запрашивает ответ пользователя, проверяет его и выводит сообщение «Правильно!» или «Вы ошиблись» и верный результат. Pascal ABC

Answer 1

Var
  a,b,r:byte;
begin
  randomize;
  a:=Random(9)+1;
  b:=Random(9)+1;
  Write(a,' x ',b,' = ');
  Readln(r);
  if r=a*b then Writeln('Правильно!')
  else Writeln('Вы ошиблись. Верный результат ',a*b)
end.

Answer 2

Для написания программы на Pascal ABC, которая генерирует пример на умножение двух однозначных чисел, запрашивает ответ пользователя и выводит результат, нужно выполнить следующие шаги:

1. Сгенерировать два случайных однозначных числа.
2. Вычислить их произведение.
3. Запросить ответ у пользователя.
4. Проверить ответ пользователя и вывести результат.

Вот пример кода на Pascal ABC, который выполняет эти действия:

pascalCopy code
program MultiplicationQuiz;

uses
  SysUtils;

var
  num1, num2, userAnswer, correctAnswer: Integer;

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

  // Генерируем два однозначных числа
  num1 := Random(9) + 1;
  num2 := Random(9) + 1;

  // Вычисляем правильный ответ
  correctAnswer := num1 * num2;

  // Выводим пример на экран
  writeln('Пример на умножение:');
  writeln(num1, ' * ', num2, ' = ?');

  // Запрашиваем ответ у пользователя
  write('Введите ваш ответ: ');
  readln(userAnswer);

  // Проверяем ответ пользователя
  if userAnswer = correctAnswer then
    writeln('Правильно!')
  else
    writeln('Вы ошиблись. Правильный ответ: ', correctAnswer);

  readln;
end.

Этот код генерирует два однозначных числа, задает пример на умножение, запрашивает ответ у пользователя и выводит сообщение о правильности или ошибке.