Bài 1: Nhập vào xâu s có độ dài không quá 100 ký tự đưa ra xâu đó sau khi xóa hết các ký tự hàng thừa (đầu,cuối) câu có kí tự tiếp , giữa các từ có n

0 bình luận về “Bài 1: Nhập vào xâu s có độ dài không quá 100 ký tự đưa ra xâu đó sau khi xóa hết các ký tự hàng thừa (đầu,cuối) câu có kí tự tiếp , giữa các từ có n”

1. Var s: string[100];

         i: byte;

   Begin

       Write(‘nhap xau: ‘); readln(s);

       While s[1]=’ ‘ do delete(s, 1, 1);

     While s[length(s)]=’ ‘ do

                   delete(s, length(s), 1);

       I:=1;

       While i<length(s) do

           Begin

               If (s[i]=’ ‘) and (s[i+1]=’ ‘) then

                    Begin

                            Delete(s, i, 1); dec(i);

                     End;

               Inc(i);

           End;

       Write(s);

       Readln

   End.

   Bình luận