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. uses crt;

   var s:string;

   i,d:integer;

   begin

   clrscr;

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

   d:=length(s);

   for i:=1 to d do 

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

   writeln(s);

   readln;

   end.

   Bình luận