Tin lớp 11 Nhập 1 xâu là họ tên của Trần Ngọc Duy. Xóa các kí tự trắng có trong xâu. Và in xâu kết quả ra màn hình. Ai giúp mik với ạ

0 bình luận về “Tin lớp 11 Nhập 1 xâu là họ tên của Trần Ngọc Duy. Xóa các kí tự trắng có trong xâu. Và in xâu kết quả ra màn hình. Ai giúp mik với ạ”

1. program Xau;
   uses CRT;
   var     s,s1: string;
                    i: integer;
   begin
               clrscr;
        
               write(‘Nhap xau S: ‘);readln(s);
        
               for i:=1 to length(s) do
        
                     If s[i] <> ‘ ‘ then s1:=s1 + s[i];
           
               write(s1);
        
   readln;
   end.

   Bình luận