Viết chương trình nhập vào 1 xâu: Chuẩn hóa xâu thành 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 hoa: ',s);
readln
End.
program xau_in_hoa;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(n);
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
write('Xau hoa la: ',s);
readln;
end.
