Nhập vào một xâu, viết chương trình: - Đếm chữ số hoặc chữ cái - Tạo ra các xâu mới( chữ cái thường, chữ in hoa, chữ số) - Đếm từng loại kí tự trong xâu Giúp mik với mn.

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(st);

dem:=0;

for i:=1 to d do 

  if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);

writeln(dem);

readln;

end.

#include <iostream>
using namespace std;
int main()
{
    int cs=0,cc=0;
    string s,cct="",cih="",css="";
    getline(cin,s);
    for(int i=0;i<s.size();i++){
        if((s[i]>='a'&&s[i]<='z')||(s[i]>='A'&&s[i]<='Z')){
            cc++;
        }
        else if(s[i]>='1'&&s[i]<='9'){
            cs++;
            css+=s[i];
        }
        if(s[i]>='a'&&s[i]<='z'){
            cct+=s[i];
        }
        else if(s[i]>='A'&&s[i]<='Z'){
            cih+=s[i];
        }
    }
    cout<<"So chu so trong xau: "<<cs<<"\nSo chu cai trong xau: "<<cc<<"\nXau chu cai thuong: "<<cct<<"\nXau chu in hoa: "<<cih<<"\nXau chu so: "<<css;
    //samon247
    return 0;
}