Дана последовательность чисел. Все нулевые элементы последовательности замените единицами и подсчитайте количество замен - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы