program bai_giai; uses crt; var s:string; i:char; begin clrscr; readln(s); for i:='a' to 'z' do while pos(i,s)<>0 do delete(s,pos(i,s),1); write(s); readln; end.
Xét tất cả các kí tự thường, trong khi còn phát hiện có kí tự thường đó (pos(i,s)<>0) trong xâu thì xóa trong xâu s tại vị trí tìm thấy xóa 1 kí tự là xóa kí tự ấy (delete(s,pos(i,s),1);
uses crt; var s:string;i:longint; begin clrscr; write('nhap xau s:');readln(s); for i:=1 to length(s)do if(s[i] in['a'..'z'])then delete(s,i,1); writeln(s); readln; end.
