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.

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