Cho xâu S , hãy tách và đếm xem trong xâu có bao nhiêu từ . VD: I Love You gồm có 3 kí tự
Câu 30: Cho xâu S , hãy tách và đếm xem trong xâu có bao nhiêu từ .
VD: I Love You gồm có 3 kí tự và 8 từ (10 từ nếu tính dấu cách )
var s: string;
p: array[1..10] of string;
i,k,dem: byte;
begin
write('Nhap xau: ');readln(s);
k:=1;
For i:=1 to length(s) do
If s[i] <> #32 then
p[k]=p[k]+s[i]
else k=k+1;
For k=1 to 50 do
If p[k] <> "" then dem=dem+1;
write('Co ',dem,' tu');
readln
end.