Написать программу в Pascal ABC. Дана строка, слова в строке разделены пробелами, сколько...

Если считать, что количество пробелов между словами всегда равно 1, а также что нет пробелов до и после последовательности, то количество слов = количеству пробелов + 1.

Код:

program words;
var
s: string;
k, i: integer;
begin
WriteLn('Введите последовательность слов с пробелами:');
ReadLn(s);
k := 1;
for i := 1 to length(s) do
if s[i] = ' ' then k := k + 1;
WriteLn('Кол-во слов: ', k);
end.