C++

#include <bits/stdc++.h>
using namespace std;

int main()
{
 freopen("XOASO.INP","r",stdin);
 freopen("XOASO.OUT","w",stdout);
 string st;
 int dem=0,n;
 cin>>st;
 n=st.length();
 for(int i=0;i<n;i++)
 {
  if(st[i]<'0'||st[i]>'9')
   cout<<st[i];
  if(st[i]>='0'&&st[i]<='9')
   dem++;
   
 }
 cout<<endl;
 cout<<dem;

 return 0;
}

Uses crt;
Var  f:text;
i,d: integer;
S: string;
Begin
Clrscr;
            assign(f,'d:\hoangchau\xoaso.inp');
            reset(f);
            readln(f,s);
            close(f);
            assign(f,'d;\hoangchau\xoaso.out');
            rewrite(f);
            Write('Nhap xau S: '); Readln(S);
            For i:=length(S) downto 1 do
            If S[i] in ['0'..'9'] then
            begin
            Delete(S,i,1);
            d:=d+1;
            end;
            Writeln(f,s);
            writeln(f,d);
            readln;

End.

=> cho mik xin hay nhat