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