Question

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

Answer 1

Ответ:

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.