nhập vào 1 xâu . Đưa ra số từ của xâu ( xâu nhập là xâu chuẩn hoá )
2 câu trả lời
var s: string;
d, i: byte;
Begin
Write('nhap xau: '); readln(s);
d:=1;
For i:=1 to length(s) do
If s[i]=' ' then inc(d);
Write('so tu trong xau: ', d);
Readln
var s: string;
d, i: byte;
Begin
Write('nhap xau: '); readln(s);
d:=1;
For i:=1 to length(s) do
If s[i]=' ' then inc(d);
Write('so tu trong xau: ', d);
Readln
End.