 polinaponomare1 
                                                27.05.2019 07:10
                                                
                                                polinaponomare1 
                                                27.05.2019 07:10
                                             123qwerty0 
                                                27.05.2019 07:10
                                                
                                                123qwerty0 
                                                27.05.2019 07:10
                                             Шлюбка 
                                                27.05.2019 07:10
                                                
                                                Шлюбка 
                                                27.05.2019 07:10
                                             Анна3481 
                                                12.04.2021 11:37
                                                
                                                Анна3481 
                                                12.04.2021 11:37
                                             kristinaFro 
                                                12.04.2021 11:39
                                                
                                                kristinaFro 
                                                12.04.2021 11:39
                                             xelasaa48 
                                                12.04.2021 11:39
                                                
                                                xelasaa48 
                                                12.04.2021 11:39
                                             GromOverzhec123447 
                                                29.03.2022 10:28
                                                
                                                GromOverzhec123447 
                                                29.03.2022 10:28
                                             ира967 
                                                29.03.2022 08:02
                                                
                                                ира967 
                                                29.03.2022 08:02
                                             MrKreol 
                                                29.03.2022 07:51
                                                
                                                MrKreol 
                                                29.03.2022 07:51
                                            
Коротко и эффектно!
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