В слове "инициатор" после каждой гласной буквы поставить такую же букву - VB
Формулировка задачи:
Помогите пожалуйста разобраться с заданиями.
1.Строка:
В слове ИНИЦИАТОР после каждой гласной буквы поставить такую же букву.
2.Простой двумерный массив:
Из массива А (n) создать массив В (n), в котором сначала расположены нулевые элементы массива, а затем положительные и отрицательные.
3.Усложнённый двумерный массив:
Сформировать матрицу, каждый элемент которой представляет собой дробную часть соответствующего элемента заданной матрицы A (n, m).
Заранее благодарю.
Решение задачи: «В слове "инициатор" после каждой гласной буквы поставить такую же букву»
textual
Листинг программы
Dim f&, s$, s1$, s2$ s = "ИНИЦИАТОР" For f = 1 To Len(s) s1 = Mid(s, f, 1) If s1 Like "[аоуыэяёюиеАОУЫЭЯЁЮИЕ]" Then s1 = s1 & s1 s2 = s2 & s1 Next MsgBox s2
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д