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

[Крутой]

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

[KRUTOY]

:P ВСЁ ПРОСТО ,КАК ПРАВДА!!

Код

uses crt;
var st: String;
  prob: Char;
  p,n,i,k: Integer;
begin
clrscr;
writeLN('введите строку: ');
readln(st);
k:=1;
p:=length(st);
while k<p do
begin
p:=length(st);
inc(n);
if st[n] = ' ' then k := n+1;
if st[k] = ' ' then begin
delete(st,n,1);
dec(n);
end;
end;
if st[1] = ' ' then delete(st,1,1);
i:= length(st);
if st[i]= ' ' then delete(st,i,1);
write(st);
readkey
end.

Сообщение отредактировано: volvo - 17.12.2004 17:35