Question

(30 баллов) На PASCAL организовать проверку знаний таблицы умножения, в режиме диалога с пользователем, т.е. после каждого тестового задания задавать вопрос "Продолжить?" (0-нет, 1-да).
Вычислить кол-во правильных ответов и общее кол-во вопросов.

Answer 1

var

 n, k, a, b, r: integer;

begin

 randomize;

 n := 0;

 repeat

   a := Random(9) + 1;

   b := Random(9) + 1;

   n := n + 1;

   write(a, ' x ', b, ' = ');

   read(r);

   if r = a * b then

   begin

     writeln('Верно');

     k := k + 1;

   end

   else

     writeln('Неверно');

   write('Продолжить? (0- нет, 1- да) ');

   read(a);

 until a = 0;

 write('Ответов ', n, '   верных ', k);

end.