cho minh hỏi tí.

[1hakunamatata]

viết hộ cho minh chương trình đếm từ trong 1 xâu kí tự nhập vao`. 1 từ là dãy kí tự từ a đến z kết thúc bằng dấu cách trống.

[HGMinh95]

Ví dụ với xâu s='abxc.def @#$% avf??a?a?' thì có bao nhiêu từ hả bạn??
Nếu bằng 3 thì bạn có thể xem bài dưới đây.


uses crt;
var k,i:integer;
s,s2:string;
begin
Clrscr;
Write(' Nhap xau s: '); readln(s2);
k:=0; s:=s2;
While Pos(' ',s)<>0 do
begin
If Pos(' ',s) <> 1 then k:=k+1;
i:=Pos(' ',s);
While Pos(' ',s)=i do Delete(s,Pos(' ',s),1);
end;
If s2[length(s2)]=' ' then k:=k-1;
Write(' So tu la: ',k+1);
readln
end.

[1hakunamatata]

mih ngimai` k0 ra. mih ga` thật. mak ban có nick yahoo ko để mih liên lạc

[HGMinh95]

mih ngimai` k0 ra. mih ga` thật. mak ban có nick yahoo ko để mih liên lạc
Nick yahoo của mình là hoanggminh95