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 câu trả lời
program bai_giai;
uses crt;
var s:string;
c:char;
begin
clrscr;
readln(s);
readln(c);
while pos(c,s)<>0 do delete(s,pos(c,s),1);
write(s);
readln;
end.
