Всем добрый день с задачкой на python. Условие: Класс написал контрольную. Если все оценки одинаковые, учитель понимает, что ученики списали друг у друга и надо дать контрольную снова. Если разные, то не надо. Дана последовательность оценок и 0 в конце. Если все цифры в столбце одинаковые, выведи "ДА", иначе "НЕТ".
Ввод Вывод
5 ДА
5
5
5
5
0

uchenik1= int(input("Оценка ученика 1:"))

uchenik2= int(input("Оценка ученика 2:"))

uchenik3= int(input("Оценка ученика 3:"))

uchenik4= int(input("Оценка ученика 4:"))

uchenik5= int(input("Оценка ученика 5:"))

uchenik6= int(input("Оценка ученика 6:"))

if uchenik1 ==5 and  uchenik2 ==5 and uchenik3 ==5 and uchenik4 ==5 and uchenik5 ==5 and  uchenik6 ==5:

  print("Переписываем рабата")

else:

   print("Все молодцы")

Объяснение:

Хорошего дня ))

marks = []

while True:

   mark = int(input('Введите оценку: '))

   if mark == 0:

       break

   marks.append(mark)

if len(marks) == marks.count(marks[0]):

   print('ДА')

else:

   print('НЕТ')

86 - 8 = 78 любят компьютерные игры

78 - 62 = 16 человек любят только квесты

78 - 54 = 24 человек любит только симуляторы

54 - 16 = 38 человек любят и квесты и симуляторы.

ответ. 38 человек любят и квесты и симуляторы.

круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.

внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.

внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.

з.ы. у меня просто не хочет прикреплять рисунок.

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.