Quảng cáo
1 câu trả lời 315
4 năm trước
var s:string;
i:byte;
begin
writeln('nhap sau ki tu');readln(s);
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then s[i]:=chr(ord(s[i])-32);
writeln('mang sau khi xu li la:',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!