Дана последовательность чисел. Все нулевые элементы последовательности замените единицами и подсчитайте количество замен - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
