Nhập vào một xâu in hoa kí tự thứ 2 xuất ra màn hình
2 câu trả lời
program in_hoa;
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(S);
s[2]:=upcase(s[2]);
write(s);
readln;
end.
var s: string;
Begin
Write('nhap xau: '); readln(s);
S[2]:=upcase(s[2]);
Write(s);
Readln
End.
