Как подсчитать количество слов в строке ? Опции

[Крутой]

Ребята, помогите подсчитать количество слов в строке ??
Слова (группы символов) разделены пробелами (одним или несколькими -- в этом и загвоздка)..... :-[

[EC]

Program STROKI_3;
  Var f: string; i,s: integer;
   Begin
cls; writeln('    подсчет слов в фразе'); writeln;
writeln('введи фразу (слова с пробелами)'); readln(f);f:=f+' ';
s:=0;
for i:=1 to ord(f[0]) do
if f[i]=' ' then if f[i-1]<>' ' then s:=s+1 ;
       writeln('всего слов: ',s)
end.

Не забываем пользоваться тэгами!

Сообщение отредактировано: APAL - 17.12.2013 19:51