Приветствую! Не могли бы вы мне помочь с информатикой
Нужно написать код созданный в программе "VBA"
Задача: Последовательно вводятся числа до тех пор, пока во введенной совокупности не окажется три нуля. Вывести количество введенных чисел

Ответ

Автор - BobbyFresnel

Sub Prime()

Dim k As Integer, x As Double

k = 0

x = CDbl(InputBox("Введи число, ноль завершит работу"))

If x = 0 Then Exit Do

k = k + 1

Loop

MsgBox "Введено чисел: " & CStr(k)

End Sub

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.