long a=10000,b,c=2800 ,d,e,f[2801],g;
main()
{ for(b=0; c-b;b++)
f[b]=a/5;
for(;d=0,g=c*2; c -=14,printf("%.4d\t",d+e/a),e=d%a)
for(b=c;d+=f[b]*a,f[b]=d%(--g),d/=g--,--b;d*=b);
getch();
}

谁能看懂？谁是高手？弄懂了就是谁。
希望大家留下你们的看法和对程序的理解。谢谢你们的关注~~！~！~！~！~！~！~！~！