Bài : Viết Chương trình nhập vào xâu đưa hình xâu xâu chữ in program TNSinfo; uses crt; var s:string; i:integer; begin clrscr; write('Nhap Xau: ');readln(s); for i:=1 to length(s) s[i]:=upcase(s [i]) ; {s:=upcase(s[5]);} writeln('Xau Sau Khi In Hoa: ',s); readln; end Bài : Viết chương trinh nhập vào xâu ,đưa hình xâu loại bỏ kí tự trắng program TNSinfo; uses crt; var s:string; begin clrscr; write('Nhap Xau: ');readln(s); while (pos(' ',s)>0) delete(s,pos(' ',s),1); writeln('Xau Sau Khi Da Chuan Hoa: ',s); readln; end ThuVienDeThi.com Bài : Viết chương trinh nhập vào xâu , sau đổi cụm từ ghét thành thương program TNSinfo; uses crt; var s:string; i,n:integer; begin clrscr; write('Nhap Xau: ');readln(s); n:=length(s); i:=0; while i