1_pro.c

来自「C源代码 计算机等级考试C语言上机题」· C语言 代码 · 共 29 行

#include  <stdio.h>
int jsvalue(long n)
{
  int i,strl,half;
  char xy[20];
  ltoa(n,xy,10);
  strl=strlen(xy);
  half=strl/2;
  for(i=0;i<half;i++)
    if(xy[i]!=xy[--strl])  break;
  if(i>=half)  return 1;
  else  return  0;
}
main()
{
  long m;
  FILE *out;
  out=fopen("OUT52.DAT","w");
  for(m=11;m<1000;m++)
  {
    if(jsvalue(m)&&jsvalue(m*m)&&jsvalue(m*m*m))
    {
      printf("m=%4ld,m*m=%6ld,m*m*m=%8ld\n",m,m*m,m*m*m);
      fprintf(out,"m=%4ld,m*m=%6ld,m*m*m=%8ld\n",m,m*m,m*m*m); 
    } 
  }
  fclose(out);
}