<u>Только для версии PascalABC.Net 3.2</u>
Коротко и эффектно!
begin
Writeln('Количество слов равно ',ReadlnString('Вводите:').ToWords.Count)
end.
Пример
Вводите: Карл у Клары украл кораллы.
Количество слов равно 5
<u>VBA MS Excel 2003</u>
Sub aaa()
a = Split(InputBox("Вводите строку"), " ")
k = 0
For Each e In a
If e <> "" Then k = k + 1
Next
MsgBox "Количество слов равно" + Str(k)
End Sub
ОООчень сложноСам хотел спросить.
(B v C & F & C & B) v !F = B v !F
В скобках B v C & F & C & B = B & (1 v C & F & C) = B
A & B v !(A & !B) = A & B v !A v B = B & (A v 1) v !A = B v !A