13. Составить программу, проверяющую знание таблицы умножения. В программе выбираются...

Question

13. Составить программу, проверяющую знание таблицы умножения. В программе выбираются случайным образом целые числа X (1<или равноX<или равно9) и Y (1<или равноY<или равно9) и предлагается пользователю ввести ответ. Результат выполнения программы: ‘Правильно’ или ‘Неправильно’.

Answer 1

// PascalABC.NET

begin

 var (x, y) := Random2(1, 9);

 if ReadInteger($'{x} x {y} =') = x * y then

   Print('Правильно')

 else

   Print('Неправильно')

end.

---