a) viết chương trình nhập vào một xâu S b) hãy chuyển các kí tự chữ cái trong xâu S thành chữ cái in hoa

0 bình luận về “a) viết chương trình nhập vào một xâu S b) hãy chuyển các kí tự chữ cái trong xâu S thành chữ cái in hoa”

1. program sau_ky_tu

   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

2. uses crt;
   var s:string;
   begin
   clrscr;
      readln(s);
      writeln(length(s));
      writeln(upcase(s));
   readln;
   end.

   Bình luận