nhập môt xâu bất kì, biến các chữ đó thành chữ in hoa
1 câu trả lời
Program Hotboy;
Uses Crt;
Var xau1, xau:String;
i:shortint;
Begin
clrscr;
Write(‘Nhap xau can bien doi ‘); Readln(xau);
For i:=1 to length(xau) do xau1:=xau1+ Upcase(xau[i]);
Write(‘Xau sau khi da bien doi la',xau1);
End.
Hàm kí tự $Upcase(..)$ trả về kí tự in hoa
