Cod sursa(job #298144)

Utilizator AndupkIonescu Alexandru Andupk Data 5 aprilie 2009 21:20:03
Problema Factorial Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.58 kb
#include<stdio.h>
FILE *f,*g;
int main()
{
f=fopen("fact.in","r");
g=fopen("fact.out","w");
long int p,i,vc,j;
int x[10000];
fscanf(f,"%ld",&p);
if(p==0) { i=1; fprintf(g,"%ld",i); }
 else if(p<0) {i=-1; fprintf(g,"%ld",i); }
 else { 
       i=0;
       j=0;
       x[0]=0;
      while(p!=0)
       {
         x[j]=x[j]+5;
         if(x[j]==10) { x[j]=0; x[j+1]++;   }
         if(x[j]>9)   { x[j]=0; j++;        } 
         p--;
       }
          for(vc=i;vc>=0;vc--)
           {
                   fprintf(g,"%d",x[vc]);
           }
       }   
return 0;
}