TRANG NGUYỄN
Hỏi từ APP VIETJACK
Viết chương trình nhập vào một xâu.In ra xâu viết IN HOA?
Quảng cáo
2 câu trả lời 979
2 năm trước
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
readln;
end.
2 năm trước
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); 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!