Так как количество чисел заранее неизвестно, открываем бесконечный цикл со всегда верным условием 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°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
Программа:
k=0 #начальное значение счетчика
while True: #открываем бесконечный цикл
x=int(input()) #вводим целое число
if x==0: #если введено число 0
break #то останавливаем цикл
elif x%7==0: #иначе, если число кратно 7 (т.е. делится без остатка)
k+=1 #увеличиваем счетчик на 1
print(k) #вывод значения счетчика