Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). найти количество слов в строке. объясните принцип решения данной .какой алгоритм действий нужен?
begin Writeln('Количество слов равно ',ReadlnString('Вводите:').ToWords.Count) end.
Пример Вводите: Карл у Клары украл кораллы. Количество слов равно 5
VBA MS Excel 2003
Sub aaa() a = Split(InputBox("Вводите строку"), " ") k = 0 For Each e In a If e <> "" Then k = k + 1 Next MsgBox "Количество слов равно" + Str(k) End Sub
Коротко и эффектно!
begin
Writeln('Количество слов равно ',ReadlnString('Вводите:').ToWords.Count)
end.
Пример
Вводите: Карл у Клары украл кораллы.
Количество слов равно 5
VBA MS Excel 2003
Sub aaa()
a = Split(InputBox("Вводите строку"), " ")
k = 0
For Each e In a
If e <> "" Then k = k + 1
Next
MsgBox "Количество слов равно" + Str(k)
End Sub