Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 5 или 9.

import random

# Определяем список учеников

student_list = ["Александр", "София", "Мария", "Максим", "Михаил", "Артём", "Анна", "Даниил", "Иван", "Виктория",

               "Алиса", "Анастасия", "Дмитрий", "Полина", "Елизавета", "Александра", "Дарья", "Екатерина", "Кирилл"]

# Создаем цикл while

while True:

   # Создаем пользовательский ввод

   sort_type = input("Выберите метод сортировки учеников (r - случайно, a - в алфавитном порядке, ar - в алфавитном "

                     "порядке обратно): ")

   # Если выбран метод сортировки "r", сортируем список случайно и прерываем выполнение текущего цикла

   if sort_type == "r":

       random.shuffle(student_list)

       print(student_list)

       break

   # Если выбран метод сортировки "a", сортируем список в алфавитном порядке и прерываем выполнение текущего цикла

   elif sort_type == "a":

       student_list.sort()

       print(student_list)

       break

   # Если выбран метод сортировки "ar", сортируем список в алфавитном порядке обратно и прерываем выполнение

   # текущего цикла

   elif sort_type == "ar":

       student_list.sort(reverse=True)

       print(student_list)

       break

   # Если выбран неопределенный сортировки, выводим ошибку и возвращаемся к пользовательскому вводу

   else:

       print("Неизвестный метод сортировки.")

Вот моя прога, 2 года назад писал и не потерял)) Тут по нажатию на форму рисуется паутина как бы центр там куда ты нажала. Вообщем думаю разберешься, если что - пиши.

Public Class Form1
Dim x, y As Integer
Sub pau(ByVal gr As Graphics, ByVal x As Integer, ByVal y As Integer)
Dim i, w, h As Integer
gr.Clear(Color.White)
w = ClientRectangle.Width / 2
h = ClientRectangle.Height / 2
For i = 0 To 2
gr.DrawLine(Pens.BurlyWood, New Point(w * i, 0), New Point(x, y))
gr.DrawLine(Pens.BurlyWood, New Point(w * i, h * 2), New Point(x, y))

Next
gr.DrawLine(Pens.BurlyWood, New Point(0, h), New Point(x, y))
gr.DrawLine(Pens.BurlyWood, New Point(w * 2, h), New Point(x, y))
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Dim gr As Graphics = Me.CreateGraphics

x = e.X
y = e.Y
pau(gr, x, y)
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim gr As Graphics = e.Graphics
pau(gr, x, y)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 100
y = 230
End Sub
End Class