Lập trình nhập vào 1 xâu có độ dài không quá 200 kí tự .đếm và đưa ra màn hình số lượng dấu cách có trong xâu Giúp em !!!!
2 câu trả lời
dem:=0;
for i:=1 to length(s) do if s[i]=' ' then inc(dem);//bien dem la kq
nhập xuất tự làm
Program FNG;
Uses crt;
Var St: String;
i,d: longint;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
d:=0;
For i:=1 to length(St) do
If St[i]=#32 then inc(d);
Write(d);
Readln
End.
