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.

Câu hỏi trong lớp Xem thêm