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
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
By Ivy
By Ivy
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
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.