Написать программу по информатике в виде теста - вопрос №7020983 от ChristenChy 18.02.2021 10:34

Question

Информатика: Написать программу по информатике в виде теста должны предлагаться вопросы с примерами , например 6*7=? нужно написать ответ и если правильно , то в конце выходит какой-то комментарий ( молодец! ) , а если наоборот , то например не правильно. ответ: и выводится правильный ответ . желательно , чтобы этот тест состоял из 5 примеров , а в конце оценивался например 5 правильных ответов , значит 5, 4 правильных-4 и так далее

ChristenChy · Answer

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