Question

ООООООООЧЕНЬЬЬ Срочно!!!
Напишите программу для проверки таблицы умножения. Перемножаются числа от 2 до 9 ( числа задаются через датчик случайных чисел). Количество вопросов не менее 10. Можно предусмотреть подсчёта количества правильных и неправильных ответов. в паскаль!

Answer 1

//PascalABC.NET

begin
  var a,b,c:integer;
  var k:=0;
  for var i:=1 to 10 do
   begin
   a:=random(2,9);
   b:=random(2,9);
   write(a,'*',b,' = ');
   readln(c);
   if a*b=c then k:=k+1;
   end;
  writeln('Правильных ответов: ',k,', неправильных: ',10-k);
end.

Пример:
8*4 = 32
7*5 = 40
3*6 = 18
2*8 = 16
3*9 = 27
6*5 = 20
6*7 = 42
6*9 = 54
7*8 = 56
2*4 = 8
Правильных ответов: 8, неправильных: 2

Answer 2

program HelloWorld;

var i,res,ok: integer;

var a,b: integer;

begin

    ok:=0;

    for i:=1 to 2 do

    begin

        a:=2+random(7);

        b:=2+random(7);

        write('Сколько будет ');write(a);write(' умножить на ');write(b);writeln(' ?');

        readln(res);

        if res = a*b then ok:=ok+1;

    end;

    write('Правильных ответов:  ');writeln(ok);

   

end.