Написать программу по информатике в виде теста должны предлагаться вопросы с примерами , например 6*7=? нужно написать ответ и если правильно , то в конце выходит какой-то комментарий ( молодец! ) , а если наоборот , то например "не правильно. ответ: " и выводится правильный ответ . желательно , чтобы этот тест состоял из 5 примеров , а в конце оценивался например 5 правильных ответов , значит 5, 4 правильных-4 и так далее
blackfox30
1
21.08.2019 20:40
0
Другие вопросы по теме Информатика
равиль7777777
31.07.2019 06:00
юра13t4
31.07.2019 06:00
mishkaievlev
31.07.2019 06:00
MOKOV07
31.07.2019 06:00
vadimgofman
31.07.2019 06:00
usenov7777
31.07.2019 06:00
redle01
06.05.2020 16:24
nikitamova2004
24.05.2019 10:40
Популярные вопросы
- Яке найменше число метрів повинно бути к сувої,щоб його можна було продати без...
3 - Розкласти на множники a^10-25a^8-40a^4-16...
2 - Решите уравнение. -2+3(1+2x)= -2x+3...
2 - Синтаксический разбор предложения: мы с удовольствием ели суп с лапшой и курицей...
3 - Раскройте скобки, употребив соответствующую глагольную форму в сложноподчиненных...
2 - Какому былинному герою принадлежат следующие слова: тебе полно свистать да по-соловьему,тебе...
2 - Пуля массой 20 г, летящая со скоростью 700 м/с под углом 60° к горизонту, попадает...
3 - Быстрее . решите систему уравнений. / розв яжіть систему рівнянь. две { - это одна...
2 - Пестрого дятла можно увидеть в нашем лесу. определить падеж существительного дятла....
3 - Сочинить 2 предложения холить - лелеять судить - рядить...
2
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.