program hoten;

uses crt;

var S:string;

      i,dh,dt:byte;

begin

     clrscr;

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

     dh:=0;  dt:=0;

     for i:=1 to length(s) do

          begin

              if s[i] in ['A'..'Z'] then dh:=dh+1;

              if s[i] in ['a'..'z'] then dt:=dt+1;

          end;

     writeln('a. Co ',dh,' ki tu hoa va co ',dt,' ki tu thuong');

     for i:=1 to length(s) do

          if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);

     writeln('b. Xau sau khi doi thanh chu hoa la: ',s);

     for i:=1 to length(s) do

          if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);

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

     for i:=2 to length(s)-1 do

          if (s[i]=' ') and (s[i+1] in ['a'..'z']) then s[i+1]:=upcase(s[i+1]);

     write('c. Xau sau khi dieu chinh la: ',s);

     readln;

end.

uses crt;

var s,s2:string;

    i,d1,d2:byte;

BEGIN

        clrscr;

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

        s2:=s;

        d1:=0; d2:=0;

        for i:=1 to length(s) do

        if s[i] in ['a'..'z'] then inc(d1)

        else

        if s[i] in ['A'..'Z'] then inc(d2);

        writeln('Cau a:');

        writeln('Xau vua nhap co ',length(s),' ki tu');

        writeln('Trong do ',d1,' chu thuong va ',d2,' chu hoa');

        for i:=1 to length(s) do

        if s[i] in ['a'..'z'] then

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

        writeln(s);

        s2[1]:=upcase(s2[1]);

       for i:=2 to length(s2) do

                if s2[i]=' ' then s2[i+1]:=upcase(s2[i+1]);

        write('Cau c:',s2);

        readln

END.

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