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
может быть повесть.
может быть рассказ.
вот так сказка, стихотворения, рассказ.
или сказка, стихотворения, повесть.
Компьютерное управление техническими устройствами происходит в процессе
расчетов по математическим моделям в режиме реального времени.