Разработать тест по Python. Во должно быть 12 (9 во на выбор из 4 вариантов одного; 3 во сами вбивают ответ После прохождения теста выводится результат (<55% - оценка 2, от 56 до 74% - оценка 3, от 75 до 85% - оценка 4, больше 85% - оценка 5).

print("Математический тест(вообще не сложный)")

print("ответы вводить маленькими буквами")

mark=0

otwet1="в"

otwet2="в"

otwet3="а"

otwet4="г"

otwet5="б"

otwet6="б"

otwet7="в"

otwet8="г"

otwet9="а"

print("Задание номер 1: 2+2")

print("""

а)6

б)5

в)4

г)3""")

a=str(input("ответ:"))

if(a in otwet1 ):

mark=mark+7

print("Правильно")

else:

print("Неправильно")

print("Задание номер 2: 79-56")

print("""

а)20

б)-20

в)23

г)26""")

a=str(input("ответ:"))

if(a in otwet2 ):

mark=mark+7

print("Правильно")

else:

print("Неправильно")

print("Задание номер 3: 3*9")

print("""

а)27

б)12

в)-6

г)0,(3)""")

a=str(input("ответ:"))

if(a in otwet3 ):

mark=mark+7

print("Правильно")

else:

print("Неправильно")

print("Задание номер 4: 10/5")

print("""

а)4

б)5

в)10

г)2""")

a=str(input("ответ:"))

if(a in otwet4 ):

mark=mark+7

print("Правильно")

else:

print("Неправильно")

print("Задание номер 5: четыре пятых плюс пять пятых(вывести целую часть)")

print("""

а)девять девятых

б)1

в)одна первая

г)10""")

a=str(input("ответ:"))

if(a in otwet5 ):

mark=mark+7

print("Правильно")

else:

print("Неправильно")

print("Задание номер 6: 0,1/0,1")

print("""

а)1

б)0,01

в)1,1

г)0,001""")

a=str(input("ответ:"))

if(a in otwet6 ):

mark=mark+7

print("Правильно")

else:

print("Неправильно")

print("Задание номер 7: 5+(-6)")

print("""

а)1

б)-6

в)-1

г)-5""")

a=str(input("ответ:"))

if(a in otwet7 ):

mark=mark+7

print("Правильно")

else:

print("Неправильно")

print("Задание номер 8: -10-12")

print("""

а)-2

б)22

в)-20

г)-22""")

a=str(input("ответ:"))

if(a in otwet8 ):

mark=mark+7

print("Правильно")

else:

print("Неправильно")

print("Задание номер 9: пять в кубе")

print("""

а)125

б)25

в)15

г)50""")

a=str(input("ответ:"))

if(a in otwet9 ):

mark=mark+8

print("Правильно")

else:

print("Неправильно")

print("Задание номер 10: -16*2")

a=str(input("ответ:"))

if(a=="-32"):

mark=mark+12

print("Правильно")

else:

print("Неправильно")

print("Задание номер 11: -6*-5")

a=str(input("ответ:"))

if(a=="30"):

mark=mark+12

print("Правильно")

else:

print("Неправильно")

print("Задание номер 12: -20/5")

a=str(input("ответ:"))

if(a=="-4"):

mark=mark+12

print("Правильно")

else:

print("Неправильно")

print("Тест закончен")

if(mark<55):

print("Ваша оценка 2")

elif(mark in range(56,75)):

print("Ваша оценка 3")

elif(mark in range(75,86)):

print("Ваша оценка 4")

elif(mark>85):

print("Ваша оценка 5")

Объяснение:

1) создаем переменные, значения которых являются правильными вариантами ответов на первые 9 вопросов;

2) Создаем вопросы, если ответ правильный программа нас об этом информирует и добавляет процент, иначе пишет"Неправильно"

3)Выводим результат

1)

var a,b,x,y:longint;

begin

write("Vvedite nachalo i konec otrezka: ");

read(a,b);

write("Vvedite x: ");

read(x);

y:=sqr(x)*x;

if (y>a)and(y<b) then write("Na dannom otrezke znachenie funkcii ravno ",y) else write("Na dannom otrezke net reshenii");

readln

end.

2)

var c,i:byte;

begin

for i:=49 to 215 do

if (i mod 4=0) then c:=c+1;

write("Kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);

readln

end.

3)

var i:integer;

p:longint;

for i:=1000 to 9999 do

if (i mod 10=3) then p:=p*i;

write("Proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);

readln

end.

4)

var i:byte;

c:integer;

begin

for i:=221 to 778 do

if ((i mod 10)=(i div 100)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.

5)

var i:longint;

c:integer;

begin

for i:=10000 to 99999 do

if ((i mod 10)=(i div 10000))and(((i mod 100)div 10)=((i div 1000)mod 10)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.

1)

var a,b,x,y:longint;

begin

write("Vvedite nachalo i konec otrezka: ");

read(a,b);

write("Vvedite x: ");

read(x);

y:=sqr(x)*x;

if (y>a)and(y<b) then write("Na dannom otrezke znachenie funkcii ravno ",y) else write("Na dannom otrezke net reshenii");

readln

end.

2)

var c,i:byte;

begin

for i:=49 to 215 do

if (i mod 4=0) then c:=c+1;

write("Kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);

readln

end.

3)

var i:integer;

p:longint;

for i:=1000 to 9999 do

if (i mod 10=3) then p:=p*i;

write("Proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);

readln

end.

4)

var i:byte;

c:integer;

begin

for i:=221 to 778 do

if ((i mod 10)=(i div 100)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.

5)

var i:longint;

c:integer;

begin

for i:=10000 to 99999 do

if ((i mod 10)=(i div 10000))and(((i mod 100)div 10)=((i div 1000)mod 10)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.