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

ogannisyan2001 ogannisyan2001    1   26.12.2019 01:41    6

Ответы
ZHANSAYA20061 ZHANSAYA20061  10.10.2020 23:21

Sub Prime()

   Dim k As Integer, x As Double

   k = 0

   Do

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

       If x = 0 Then Exit Do

       k = k + 1

   Loop

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

End Sub

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика