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

    question img

Ответы 1

  • Var x,y,i,z,p,n:integer;BeginRandomize;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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years