.Ввести с клавиатуры символьную строчку и определить сколько в ней слов.

program zz1;

var s:string; // задаем переменную строкового типа

i, k:integer;  // задаем переменные целого типа

begin

write( введите строчку );

read(s);  // вводим с клавиатуры строчку

s:=s + ; // добавим в конец строчки пробел

for i:=1 to length(s) do  // организуем цикл, в котором переберем все знаки от первого до заключительного

if (s[i] = ) and (s[i - 1] lt;gt; ) then k:=k + 1; // проверяем, если очередной символ является пробелом, а предшествующий не пробелом, то считаем слово

write( количество слов = , k); // выводим ответ

end