Viết chương trình nhập vào xâu a và xuất ra màng hình tổng các khoảng trắng trong xâu a
1 câu trả lời
var s: string;
d, i: byte;
Begin
Write('nhap xau: '); readln(s); d:=0;
For i:=1 to length(s) do
If s[i]=' ' then inc(d);
Write('co ', d, ' khoang trang');
Readln
End.