Question

Создайте программу на паскале, которая генерирует случайным образом простой пример типа b+c и показывает его на экране. А затем пользователь должен ввести ответ на него. Программа должна проверить его ответ. Если ответ верный, то ввести ПРАВИЛЬНО, если нет, то ввести какой д\б правильный ответ

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
   var (a,b):=(Random(1,20),Random(1,20));
   case Random(1,2) of
   1:begin Write(a,'+',b,'='); if ReadInteger=a+b then Write('ПРАВИЛЬНО') else Write('Правильный ответ ',a+b); end;
   2:begin Write(a,'-',b,'='); if ReadInteger=a-b then Write('ПРАВИЛЬНО') else Write('Правильный ответ ',a-b); end;
   end;
end.

Пример(1):
19-11=8
ПРАВИЛЬНО

Пример(2):
6+19=30
Правильный ответ 25