Разработать программу, которая определяет количество чисел, которые кратны 7. количество их неизвестно. замыкает последовательность 0. в python.

Так как количество чисел заранее неизвестно, открываем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, цикл прерывается командой break
Программа:

k=0                       #начальное значение счетчика
while True:           #открываем бесконечный цикл
    x=int(input())    #вводим целое число
    if x==0:            #если введено число 0
        break           #то останавливаем цикл
    elif x%7==0:    #иначе, если число кратно 7 (т.е. делится без остатка)
        k+=1            #увеличиваем счетчик на 1
print(k)                 #вывод значения счетчика

Dim A(100) As Integer, Odin As Boolean
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True 
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then  Print A(i) & CHR(9);
Next i
End

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.