Отвечает: Черников Игорь Владимирович
Здравствуйте, Китаев Кирилл Артурович!
Вот Ваша программа
Написана в макросе Word-а 2003
Sub macros()
Dim Строка As String
Dim КоличНечСлов As Integer
Dim Число As Double
Строка = InputBox("Введите строку", "Ввод данных")
For i = 1 To Len(Строка) + 1
ОдинСимвол = Mid(Строка, i, 1)
If ОдинСимвол = " " Or i = Len(Строка) + 1 Then
Число = Len(Слово) / 2
ЦелаяЧасть = Oct(Число)
If Len(CStr(Число)) <> Len(ЦелаяЧасть) Then
If Слово <> "" Then
КоличНечСлов = КоличНечСлов + 1
End If
End If
Слово = ""
Else
Слово = Слово + ОдинСимвол
End If
Next i
MsgBox ("Количество слов c нечётным количеством символов = " & КоличНечСлов)
End Sub
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: Студент)
Ответ отправлен: 21.04.2008, 18:38 Оценка за ответ: 5 Комментарий оценки: Больное спасибо за помощь.
Отвечает: PsySex
Здравствуйте, Китаев Кирилл Артурович!
См. приложение.
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 22.04.2008, 09:13 Оценка за ответ: 5
