Viết chương trình nhập vào xâu S a) in ra màn hình cho biết số lượng con số có trong xâu b) cho bt số lượng chữ cái trong xâu

program dem_so_chucai;

uses crt;

var s:string;

{---Ham-dem-so---}

function demso(s:string):byte;

var i,d:byte;

begin

      d:=0;

      for i:=1 to length(s) do

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

      demso:=d;

end;

{---Ham-dem-chu-cai---}

function demcc(s:string):byte;

var i,d:byte;

begin

      d:=0;

      for i:=1 to length(s) do

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

      demcc:=d;

end;

{---Chuong-trinh-chinh---}

begin

      clrscr;

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

      writeln('a. Co ',demso(s),' chu so');

      writeln('b. Co ',demcc(s),' chu cai');

      readln;

end.

program phuongt;
uses crt;
  var s: string;
function kt: integer;
var i, k, d: integer;
begin
        d:=0;
        k:=0;
        for i:=1 to length(s) do
        begin
                if s[i] in ['0'..'9'] then d:=d+1;
                if s[i] in ['a'..'z']+['A'..'Z'] then k:=k+1;
        end;
        writeln('So luong con so co trong xau: ', d);
        write('So luong chu cai co trong xau: ', k);
end;
begin
        clrscr;
        write('Nhap xau s = '); readln(s);
        kt;
        readln
end.