mấy bạn cho mình hỏi bài tin này nha: Bài 1:nhập 1 xâu và 1 kí tự bất kì và đếm xem có bao nhiêu kí tự chữ bất kì?(Và nếu là có bao nhiêu kí tự số thì làm như thế nào v ạ?

Program Hotboy ;

Uses crt;

Var xau: string

i,kituchu: integer;

Begin

Kituchu:=0;

Write('nhap xau'); readln(xau);

 For i:=1 to length(xau) do

  if xau[i] in ['A'..'Z'] + ['a'..'z'] then inc(kituchu);

 Writeln('so ki tu chu trong xau la',kituchu);

Readln

End.

Nếu là kí tự số   

Program Hotboy ;

Uses crt;

Var xau: string

i,kituso: integer;

Begin

Kituso:=0;

Write('nhap xau'); readln(xau);

 For i:=1 to length(xau) do

  If (xau[i] in ['0'..'9']) then inc(kituso);

 Writeln('so ki tu so trong xau la',kituso);

Readln

End.

#include <iostream>
using namespace std;
int main(){
    string s;
    char a;
    int pii=0;
    cin>>s>>a;
    for(int i=0;i<s.size();i++){
        if(s[i]==a){
            pii++;
        }
    }
    cout<<pii;
    //samon247
    return 0;
}