var s: string = 'haabba'; a: array[0..255] of boolean; (* dung de danh dau ky tu trung *) k: integer; begin writeln('CHUONG TRINH TIM VA XOA CAC KY TU TRUNG'); write('Nhap vao 1 xau: '); readln(s); write('Xau khong trung la: '); fillchar(a, sizeof(a), false); for k:= 1 to length(s) do begin if not a[ord(s[k])] then begin write(s[k]); a[ord(s[k])]:= true; end; end; readln; end.

program xoa_ki_tu;

uses crt;

var s:string;

     A:array[0..255] of boolean; 

     N:integer;

begin clrscr;

   write('Nhap mot xau: '); readln(s); 

   write('Ki tu ko trung la: '); fillchar(A, sizeof(A), false); 

     for N:= 1 to length(s) do 

       begin 

         if not a[ord(s[N])] then 

           begin  

             write(s[N]); A[ord(s[N])]:=true; 

           end; 

       end;

readln; 

end.

Học tốt!