Question

ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ ПО ИНФОРМАТИКЕ В ВИДЕ ТЕСТА Должны предлагаться вопросы с примерами , например 6*7=? Нужно написать ответ и если правильно , то в конце выходит какой-то комментарий ( молодец!) , а если наоборот , то например "не правильно. Ответ:..." И выводится правильный ответ . Желательно , чтобы этот тест состоял из 5 примеров , а в конце оценивался Например 5 правильных ответов , значит 5, 4 правильных-4 и так далее ПОЖАЛУЙСТА

Answer 1

Program test;
var ans,k,a,i,b: integer;
begin
randomize;
k:=0;
for i:=1 to 5 do
begin
a:=random(10)+1;
b:=random(10)+1;
writeln(i,' пример: ');
write(a,'*',b,'=');
readln(ans);
if ans=a*b then
begin
writeln('верно');
k:=k+1;
end
else
writeln('неверно, ответ: ',a*b);
end;
write('правильно ',k,' из 5, ваша оценка: ',k);
end.