Старший брат для своей сестренки по родителей составил программу проверки знаний таблицы умножения. и вот, что у него получилось:
таблица умножения на ? .
2*1=?
2*2=?
…..
2*10=?
количество правильных ответов = .
количество неверных ответов =
составьте и вы такую программу, блок-схему или алгоритм.

1

Объяснение:

var x, answer_ok, temp:integer;

begin

 Write('Таблица умножения на ');

 Read(x);

 for var i := 1 to 10 do

 begin

   Write(x, ' * ', i, ' = ');

   Read(temp);

   if temp = i * x then

     answer_ok:=answer_ok + 1;

 end;

 WriteLn('Количество правильных ответов = ', answer_ok);

 Write('Количество неверных ответов = ', 10 - answer_ok);

end.