Hãy chuyển xâu S =’toi la hoc sinh lop 11A5′ thành xâu gồm các kí tự là chữ in hoa

0 bình luận về “Hãy chuyển xâu S =’toi la hoc sinh lop 11A5′ thành xâu gồm các kí tự là chữ in hoa”

1. program chuyenxau;

   uses crt;

   var s:string;

         i:byte;

   begin

   clrscr;

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

   for i:=1 to length(s) do

    if s[i] in [‘A’..’Z’] then s[i]:=upcase(s[i]);

   write(‘Xau sau khi chuyen la: ‘,s);

   readln

   end.

   Bình luận

2. uses crt;
   var i:byte;
       s:string;
   BEGIN
           clrscr;
           write(‘Nhap xau:’); readln(s);
           write(‘Xau sau khi chuyen la:’);
           for i:=1 to length(s) do write(upcase(s[i]));
           readln
   END.

   Chúc bạn học tốt.

   Cho mình xin câu trả lời hay nhất.

   Bình luận