BÀI 11: Viết chương trình nhập 1 xâu từ bàn phím. Hãy chuẩn hóa xâu trên và đưa kết quả ra màn hình

0 bình luận về “BÀI 11: Viết chương trình nhập 1 xâu từ bàn phím. Hãy chuẩn hóa xâu trên và đưa kết quả ra màn hình”

1. uses crt;

   var s:string;

   BEGIN

   readln(s);

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

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

   while pos(‘  ‘,s)>0 do delete(s,pos(‘  ‘,s),1);

   write(s);

   readln;

   end.

   Bình luận