нужна Паскаль. Девятый класс. Написать код на языке программирования тестирующей программы по любой дисциплине с подсчетом количества правильных ответов. Подсчет количества правильных ответов производится таким образом: к:=к+1 ( присваивается за правильный ответНачальное значение переменной к=0.

program z1;

var i,x,y,z,k:integer;

begin

k:=0;

randomize;

writeln ('Проверка знания Таблицы умножения');

writeln;

for i:=1 to 5 do

begin

x:=random(9)+1;

y:=random(9)+1;

writeln ('Сколько будет ',x,' * ',y);

write ('Ваш ответ ');

readln (z);

if z=x*y then

begin

k:=k+1;

writeln ('Правильно!')

end

else writeln ('Неправильно!  ',x,' * ',y,' = ',x*y);

writeln

end;

writeln;

writeln ('Количество правильных ответов ',k)

end.

Объяснение:

Цикл с параметром (5 вопросов):

1) Числа генерируются случайным образом от 1 до 9

2) Вывод на экран вопроса

3) Ввод ответа пользователем

4) Оценка правильности ответа (полный оператор ветвления - если ответ пользователя верен, то увеличиваем значение k и выводим сообщение о верности ответа, иначе выводим сообщение об ошибочности ответа и верный ответ)

Вывод на экран количество правильных ответов