Hãy chuyển xâu S ='toi la hoc sinh lop 11A5' thành xâu gồm các kí tự là chữ in hoa
2 câu trả lời
program chuyenxau;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then s[i]:=upcase(s[i]);
write('Xau sau khi chuyen la: ',s);
readln
end.
uses crt;
var i:byte;
s:string;
BEGIN
clrscr;
write('Nhap xau:'); readln(s);
write('Xau sau khi chuyen la:');
for i:=1 to length(s) do write(upcase(s[i]));
readln
END.
Chúc bạn học tốt.
Cho mình xin câu trả lời hay nhất.
