Nhập kí tự s hãy đếm có bao nhiêu chữ số suất hiện trong xâu s và in ra xâu chữ số đó Em CẦN GẤP Ạ XIN C.ƠN !

*Pascal :

uses crt;
  const number_string = ['0'..'9'];
    var s : string ;
        i, n : longint ;
begin
    clrscr;
    readln(s);
    
    n := 0 ;
    for i := 1 to length(s) do 
        if s[i] in number_string then inc(n);
    write(n);
        
end .

*Python :

string = input()
count = 0
for i in string :
    if 48 <= ord(i) <= 57 :
        count += 1 
print(count)

*C++ :
#include <bits/stdc++.h>
using namespace std;
int main(){
    string s ; getline(cin, s);
    int count = 0 ;
    for (int i=0;i<s.size();i++) if ((int(s[i])>=48)&&(int(s[i])<=57)) count += 1 ;
        
    cout << count ;
}

đề này hề nhỉ, câu trước bảo "kí tự s", câu sau bảo "xâu s"

code:

#include <bits/stdc++.h>
using namespace std;
int main()
{
    string s;
    getline(cin,s);
    int d=0;
    for (int i=0; i<s.size(); i++) if (s[i]>='0' && s[i]<='9') d++;
    cout << d;
}