Viết chương trình đưa ra xâu S với các kí tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa

0 bình luận về “Viết chương trình đưa ra xâu S với các kí tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa”

1. var s: string;

       I: byte;

   Begin

       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

2. program bienhinh ;

   var s: string[200]

       i: byte;

   Begin

       Write(‘nhap xau: ‘);

       readln(s);

       for i:=1 to length(s) do

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

       Writeln(s);

       Readln ;
   

   End.

   xin hay nhất

   Bình luận