Количество слов будет на единицу больше количества пробелов, если пользоваться традиционным алгоритмом.
1. Традиционное решение.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
var
s:string;
i,k:integer;
begin
Write('Введите строку: '); Readln(s);
k:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(k);
Writeln('Количество слов равно ',k+1)
end.
Результат выполнения программы:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6
2. Решение срeдствами PascalABC.Net 3.1
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var s:=ReadlnString('Введите строку:');
Writeln('Количество слов равно ',s.ToWords.Count)
end.
Результат выполнения программы:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6