Усовершенствуйте программу TablMul (пример 2 данного параграфа) таким образом, чтобы в...

Question

Усовершенствуйте программу TablMul (пример 2 данного параграфа) таким образом, чтобы в результате выводилось сообщение о количестве правильных и неправильных ответов

---

Answer 1

Var x,y,i,z,p,n:integer;
Begin
Randomize;
p:=0;
n:=0;
For i:= 1 to 10 do
    Begin
    x:=random(8)+2;
    y:=random(8)+2;
    WriteLn('Сколько будет ',x,'*',y,'?');
    Read(z);
    if z=x*y then
       Begin
       WriteLn('Правильно!');
       p:=p+1
       End
    else
       Begin
       WriteLn('Не правильно! ',x,'*',y,'=',x*y);
       n:=n+1
       End
    End;
WriteLn('Количество правильных ответов: ',p);
WriteLn('Количество неправильных ответов: ',n);
End.