Viết chương trình nhập vào xâu. Xoá hết các kí tự trắng dư thừa có trong xâu. Mọi người giúp em với ạ!

0 bình luận về “Viết chương trình nhập vào xâu. Xoá hết các kí tự trắng dư thừa có trong xâu. Mọi người giúp em với ạ!”

1. Uses Crt;

   Var  n, byte

   st: String;

   Program  Xoatrangthua, Var St:String);

   Begin

       {Xóa các ký tự trắng ở đầu xâu}

       While St[1]=#20 Do Delete(St,1,1);

       {Xóa các ký tự trắng ở cuối xâu}

       While St[Length(St)]=#20 Do Delete(St,Length(St),1);

       {Xóa các ký tự trắng ở giữa xâu}

       While n (#20#20,St)<>0 Do Delete(St,POS(#20#20,St),1);

   End.

   Bình luận