viết ct nhập vào xâu s in ra màn hình đếm số kí tự chữ cái , chứ số trong xâu s s: ' abc123dej' d chữ =6. dso =3.

program dem_Soluong;

uses crt;

var s:string;

      i,ds,dc:byte;

begin

       clrscr;

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

       dc:=0;  ds:=0;

       for i:=1 to length(s) do

              if s[i] in ['0'..'9'] then ds:=ds+1

              else if (s[i] in ['a'..'z']) and (s[i] in ['A'..'Z']) then dc:=dc+1;

       writeln('So luong chu cai la: ',dc);

       writeln('So luong chu so la: ',ds);

       readln

end.

uses crt;
var s:string; i,d,d1:longint;
begin
clrscr;
   write('Nhap xau: '); readln(s);
   for i:=1 to length(s) do
      begin
         if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then inc(d);
         if s[i] in ['0'..'9'] then inc(d1);
      end;
   writeln('Dchu: ',d);
   writeln('Dso: ',d1);
readln
end.