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á ) 20/07/2021 Bởi Kennedy 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á )
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. Bình luận
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 Bình luận
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.
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