поиск слов в строке c

Ответ от Ice Soul °¤°[активный]
var s:string;i,k:integer;beginwriteln("vvedite stroku i bla bla bla");readln(s);s:=s+' ';for i:=0 to length(s)-1 dobeginif ((s[ i ]<>' ')and(s[i+1]=' '))k:=k+1;end;writeln("koli4estvo slov - ",k);readln;end.как то так, паскаля нету, не проверял.

Ответ от DiG DeePeR[гуру]
примерно так:c:=0;for x:=1 to length(s) do if s[x]=' ' then c:=c+1;writeln('количество слов ',c+1);

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]