Viết chương trình nhập vào xâu S gồm các kí tự thường và hoa. Đưa ra màn hình xâu S sau khi chuyển các ký tự sang in hoa
2 câu trả lời
program in_hoa;
uses crt;
var s: string;
i: byte;
Begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do s(i):=upcase(s[i]);
write('Xau in: ',s);
readln
End.