Cod sursa(job #675822)

Utilizator radu2004GOLD radu radu2004 Data 8 februarie 2012 12:18:19
Problema Factorial Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <stdio.h>
long p,s,n,i;
FILE *f,*g;


int main()
{ f=fopen ("fact.in","r");
  g=fopen ("fact.out","w");
  fscanf (f,"%ld",&p);
 if (p==0) fprintf (g,"1");
 if (p<0) fprintf (g,"-1");
 s=0;
 for (i=1;i<=p;i++) {n=n+5;

                     if (s==5) {s=0;
                                n=n-5;}
                                s=s+1; }

fprintf (g,"%ld",n);
fclose(f);
fclose(g);
    return 0;
}