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

0 bình luận về “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. 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.

   Bình luận