Cod sursa(job #716868)

Utilizator iarbaCrestez Paul iarba Data 19 martie 2012 12:42:05
Problema Pascal Scor 70
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.92 kb
#include <stdio.h>
long k,p2,p3,p5,n,i,d,p,r;
FILE *f,*g;
int main()
{
    k=0;
    f=fopen("pascal.in","r");
    g=fopen("pascal.out","w");
    fscanf(f,"%ld%ld",&n,&d);
    p2=0;p3=0;p5=0;
    for(i=0;i<=n/2-1;i++){
        p=2;
        r=n-i;
        while(r%2==0){p2++;r/=2;}
        r=n-i;
        while(r%3==0){p3++;r/=3;}
        r=n-i;
        while(r%5==0){p5++;r/=5;}
        r=i+1;
        while(r%2==0){p2--;r/=2;}
        r=i+1;
        while(r%3==0){p3--;r/=3;}
        r=i+1;
        while(r%5==0){p5--;r/=5;}
        if(d==2){if(p2>0){k+=2;if((n%2==0)&&(i==n/2-1)){k--;}}}
        if(d==3){if(p3>0){k+=2;if((n%2==0)&&(i==n/2-1)){k--;}}}
        if(d==4){if(p2>1){k+=2;if((n%2==0)&&(i==n/2-1)){k--;}}}
        if(d==5){if(p5>0){k+=2;if((n%2==0)&&(i==n/2-1)){k--;}}}
        if(d==6){if((p2>0)&&(p3>0)){k+=2;if((n%2==0)&&(i=n/2)){k--;}}}
                       }
    fprintf(g,"%ld",k);
return 0;
}