已知数据文件in.dat中存有200个四位数，并已调用读函数readdat()把这些数存入数组a中，请考生编制一函数jsval()，其功能是：把千位数字和十位数字重新组成一个新的十位数（新十位数的十位数字是原四位数的千位数字，新十位数的个位数字是原四位数的十位数字），以及把个位数字和百位数字组成另一个新的十位数（新十位数的十位数字是原四位数的个位数字，新十位数的个位数字是原四位数的百位数字），如果新组成的两个十位数均是素数且新数的十位数字均不为零，则将满足此条件的四位数按从大到小的顺序存入数组b中，并要计算满足上述条件的四位数的个数cnt。最后main()函数调用写函数writedat()把结果cnt以及数组b中符合条件的四位数输出到out.dat文件中。
    　注意：部分源程序存在文件prog1.c中。
    　程序中已定义数组：a[200]，b[200]，已定义变量：cnt
    　请勿改动数据文件in.dat中的任何数据、主函数main()、读函数readdat()和写函数writedat()的内容。
#include
#define max  200
int a[max], b[max], cnt = 0 ;
int isprime(int m)
{int i;
 for(i=2;i<=m/2;i )
   if(m%i==0) return 0;
 return 1;
}

void jsval()
{int i,j,qw,bw,sw,gw;
 int ab,cd;
 for(i=0;i<200;i )
   {qw=a[i]/1000;     bw=a[i]00/100;
    sw=a[i]0/10;  gw=a[i];
    ab=10*qw sw;   cd=10*gw bw;
    if(isprime(ab)&&isprime(cd)&&ab>=10&&cd>=10) b[cnt ]=a[i];
   }
 for(i=0;i   for(j=i 1;j     if(b[i]}

void readdat()
{
  int i ;
  file *fp ;
  fp = fopen("in.dat", "r") ;
  for(i = 0 ; i < max ; i ) fscanf(fp, "%d", &a[i]) ;
  fclose(fp) ;
}

void main()
{
  int i ;
  readdat() ;
  jsval() ;
  printf("满足条件的数=%dn", cnt) ;
  for(i = 0 ; i < cnt ; i ) printf("%d ", b[i]) ;
  printf("n") ;
  writedat() ;
}

writedat()
{
  file *fp ;
  int i ;
  fp = fopen("out.dat", "w") ;
  fprintf(fp, "%dn", cnt) ;
  for(i = 0 ; i < cnt ; i ) fprintf(fp, "%dn", b[i]) ;
  fclose(fp) ;
}