Имеется 3 числа : A ,B ,C. Найти количество нулей. как написать в бейсике?
Ответы:
08-06-2018 02:16
Sub aaa() a = InputBox("Введите число А") b = InputBox("Введите число B") c = InputBox("Введите число C") s = a + b + c k = 0 For i = 1 To Len(s) If Mid(s, i, 1) = "0" Then k = k + 1 Next i MsgBox "Общее количество нулей равно" + Str(k)End Sub
Также наши пользователи интересуются:
27312 поделить на 48 прибавить прибавить скобку 900 отнять 669 скобка закрывается умнож?Объясните, почему самое холодное место находится южнее полярного круга.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Имеется 3 числа : A ,B ,C. Найти количество нулей. как написать в бейсике?» от пользователя АНЖЕЛА САМБУКА в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!