Nhập vào một xâu từ bàn phím, đưa ra màn hình xâu thu được bằng cách loại bỏ các dấu cách từ xâu đã cho(dùng hàm pos ,delete)

0 bình luận về “Nhập vào một xâu từ bàn phím, đưa ra màn hình xâu thu được bằng cách loại bỏ các dấu cách từ xâu đã cho(dùng hàm pos ,delete)”

1. Vote mình nha

   uses crt;
   var s:string;
   begin
   clrscr;
    write(‘Nhap chuoi: ‘);
    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);
    writeln(s);
    readln;
   end.

   Bình luận