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

Question

Информатика

Алистарх

7 августа, 13:56

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

+1

Ответы (1)

Знаете ответ на вопрос?

Армануш · 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.