nhập vào 1 xâu đếm số lượng dấu cách của xâu đó và in ra xâu bằng cách loại trừ tất cả các dấu cách trong xâu

0 bình luận về “nhập vào 1 xâu đếm số lượng dấu cách của xâu đó và in ra xâu bằng cách loại trừ tất cả các dấu cách trong xâu”

1. program abc;
   uses crt;
   var
       s:string;
       i,a:byte;
   begin
       write(‘Nhap xau: ‘);
       readln(s);
       a:=0;
       for i:=1 to length(s) do
           while s[i]=’ ‘ do
           begin
               a:=a+1;
               delete(s,i,1);
           end;
       writeln(‘So dau cach: ‘,a);
       writeln(‘Xau moi: ‘,s);
       readln;
   end.

   Bình luận