Вопрос по информатике:
Напишите программу для вычеркивания в данном слове всех букв, стоящих на нечетных местах после буквы "а"
Написать на Visual Basic
- 02.09.2015 22:27
- Информатика
- remove_red_eye 9552
- thumb_up 10
Ответы и объяснения 1
Sub ex1()
Dim s As String, s1 As String
Dim i As Integer, j As Integer
s = InputBox("Введите слово")
i = InStr(s, "а")
If i > 0 Then
s1 = Left(s, i)
For j = i + 2 To Len(s) Step 2
s1 = s1 + Mid(s, j, 1)
Next j
Else
s1 = s
End If
MsgBox "Результат: " + s1
End Sub
- 03.09.2015 03:22
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.