Quảng cáo
1 câu trả lời 506
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
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86469
Gửi báo cáo thành công!
