Viết ct nhập vào 1 xâu nhập kí tự bất kì .xóa các kí tự trùng với kí tự vừa nhập trong xâu

0 bình luận về “Viết ct nhập vào 1 xâu nhập kí tự bất kì .xóa các kí tự trùng với kí tự vừa nhập trong xâu”

1. program xoa_trung;
   uses crt;
   var s:string;
       i:byte;
       c:char;
   begin
           clrscr;
           write(‘Nhap xau: ‘);    readln(s);
           i:=1;
           while i<=length(s) do
                   begin
                           c:=s[i];
                           s[i]:=chr(1);
                           while pos(c,s)<>0 do delete(s,pos(c,s),1);
                           s[i]:=c;
                           i:=i+1;
                   end;
           write(s);
           readln;
   end.

   Bình luận