uses crt; var s:string; begin clrscr; write('Nhap xau=');readln(s); while pos(' ',s)<>0 do delete(s,pos(' ',s),1); writeln('ket qua: ',s); readln end.
Bài 6:
uses crt; var s1,s2:string; i:longint; begin clrscr; write('Nhap xau s1 :');readln(s1); s2:=''; for i:=1 to length(s1) do if s1[i] in ['a'..'z'] then s2:=s2+s1[i]; writeln('ket qua: ',s2); readln end.
