大哥,你问的问题还真变态啊! SAS俺没弄出来,给您段 C++ 将就着用吧~~~~~~~~~~~

#include <iostream>
void fun(char a);
int main()
{
 using namespace std;
 int n;
 cin>>n;
 cout<<endl;
 char *ch,*zh;
 ch=new char[n];
 zh=new char[n];
    for(int m=0;m<n;m++)
 {
  cin>>ch[m];
  cout<<"\t";
 }
 int k=0;
 for(int i=0;i<n;i++)
 {
  if((isalpha(ch))&&(isdigit(ch[i+1])))
        {
            zh[k]=ch;
   zh[k+1]=ch[i+1];
   k+=2;
  }
 }
 cout<<endl;
 for(int j=0;j<n;j++)
 {
  cout<<zh[j]<<"\t";
 }
cout<<endl;
 delete[] ch;
 delete[] zh;
 return 0;
}