Viết CT nhập 1 sâu từ bàn phím đưa ra màn hình xâu mới gồm các chữ cái in hoa ở trong xâu vừa nhập
2 câu trả lời
uses crt;
var s:string;
begin
clrscr;
write('nhap xau s:');readln(s);
write('xau moi=',upcase(s));
readln;
end.
uses crt;
var s:string;
begin
clrscr;
write('nhap xau s:');readln(s);
write('xau moi=',upcase(s));
readln;
end.
