13. Составить программу, проверяющую знание таблицы умножения. В программе выбираются случайным образом целые числа X (1<или равноX<или равно9) и Y (1<или равноY<или равно9) и предлагается пользователю ввести ответ. Результат выполнения программы: ‘Правильно’ или ‘Неправильно’.
Answers & Comments
// PascalABC.NET
begin
var (x, y) := Random2(1, 9);
if ReadInteger($'{x} x {y} =') = x * y then
Print('Правильно')
else
Print('Неправильно')
end.