Старший брат для своей сестренки по просьбе родителей составил программу проверки знаний таблицы умножения. И вот, что у него получилось:
Таблица умножения на ?.
2*1=?
2*2=?
…..
2*10=?
Количество правильных ответов = ___ .
Количество неверных ответов = _____.
Составьте и вы такую программу, блок-схему или алгоритм.
Ответы
Ответ дал:
0
Ответ:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
7 лет назад