Nhập vào một xâu in hoa kí tự thứ 2 xuất ra màn hình

0 bình luận về “Nhập vào một xâu in hoa kí tự thứ 2 xuất ra màn hình”

1. var s: string;

   Begin

       Write(‘nhap xau: ‘); readln(s);

       S[2]:=upcase(s[2]);

       Write(s);

       Readln

   End.

   Bình luận

2. program in_hoa;

   uses crt;

   var s:string;

   begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(S);

          s[2]:=upcase(s[2]);

          write(s);

          readln;

   end.

   Bình luận