viết chương trình nhập vào 1 xâu bất kì gồm chữ cái và những số đếm xem trong xâu đó có bao nhiêu chữ cái và số

program demchu_so;

uses crt;

var s:string;

      i,dc,ds:byte;

begin

    clrscr;

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

    dc:=0;  ds:=0;

    for i:=1 to length(S) do

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

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

    write('Trong xau co tat ca ',dc,' chu cai va ',ds,' chu so');

    readln;

end.

uses crt;

var s:string;

    i,d1,d2:byte;

BEGIN

        clrscr;

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

        d1:=0; d2:=0;

        for i:=1 to length(s) do

        if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then

                inc(d1)

        else if s[i] in ['0'..'9'] then inc(d2);

        write('Co ',d1,' chu cai,',d2,' chu so');

        readln

END.

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