Viết chương trình nhập xâu . In hoa kos tự thứ 2 của xâu vừa nhập
2 câu trả lời
var s: string;
Begin
Write('nhap xau: '); readln(s);
S[2]:=upcase(s[2]);
Write(s);
Readln
End.
program phuongt;
uses crt;
var s: string;
begin
clrscr;
write('Nhap xau s = '); readln(s);
s[2]:=upcase(s[2]);
write('Xau moi: ', s);
readln
end.
