Дана последовательность чисел. Все нулевые элементы последовательности замените единицами и подсчитайте количество замен - VB
Формулировка задачи:
Дана последовательность чисел. Все нулевые элементы последовательности замените единицами и подсчитайте количество замен.
Решение задачи: «Дана последовательность чисел. Все нулевые элементы последовательности замените единицами и подсчитайте количество замен»
textual
Листинг программы
Sub MAIN()
s = InputBox("Введите последовательность чисел, разделенных пробелами", "Dream_of_Cthulh", " 0 5 7 3 5 6 0 8 9 1 4 5 0")
s = " " & Trim(Replace(s, " ", " ")) & " "
While InStr(s, " ")
s = Replace(s, " ", " ")
Wend
n = (Len(s) - Len(Replace(s, " 0 ", ""))) / 3
s = Replace(s, " 0 ", " 1 ")
MsgBox "К-во нулей: " & n & vbCrLf & "Полученная последовательность:" & vbCrLf & s
End Sub