Viết chương trình chuyển xâu’Hello’ thành ‘HELLO’!

0 bình luận về “Viết chương trình chuyển xâu’Hello’ thành ‘HELLO’!”

1. program 

   uses crt;

   var s:string;

             i:byte;

   begin

             clrscr;

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

             for i:=1 to length(s) do

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

             write(s);

             readln;

   end.

   Xin hay nhất .

   Bình luận

2. program in_hoa;

   uses crt;

   var s:string;

         i:byte;

   begin

         clrscr;

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

         for i:=1 to length(s) do

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

         write(s);

         readln;

   end.

   Bình luận