viết chương trình nhập vào 1 xâu và đổi xâu đó thành xâu in hoa
2 câu trả lời
uses crt;
var a:string;
i:integer;
begin
write('nhap xau:');readln(a);
for i:=1 to lenght(a) do
begin
a[i]:=uscape(a[i]);
write(a[i]);
end;
readln;
end.
xau=input()
xau=xau.upper()
print(xau)
*Giải thích: upper(): hàm đổi xâu thành in hoa
