Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.
var
i,n:integer;
s:string;
begin
Writeln('Введите текст, разделяя слова ровно одним пробелом');
Readln(s);
n:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(n);
Writeln('Количество слов в тексте равно ',n+1)
end.
<em><u>Тестовое решение:</u></em>
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9
знак называется 'Выделить <u>в</u>се' больше названий нет
2*2-(1)
2*2-(1)=3
<span>3*3-(2)=7 </span>
<span>7*4-(3)=25 </span>
<span>25*5-(4)=121 </span>
<span>121*6-(5)=721 </span><span>
както так)))</span>
Задача очевидная и очень простая.