Quảng cáo
1 câu trả lời 299
1 năm trước
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau :'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!