Cod sursa(job #774323)

Utilizator andreimaresuMaresu Andrei andreimaresu Data 4 august 2012 12:06:25
Problema Pascal Scor 20
Compilator c Status done
Runda Arhiva de probleme Marime 0.48 kb
#include<stdio.h>
#include<math.h>
long int fact(long int r)
{
    if (r==1 || r==0) return 1;
    else return r*fact(r-1);
}
int main()
{
    FILE *f=fopen("pascal.in","r"),*g=fopen("pascal.out","w");
    long int r,nr=0,j,a;
    int d;
    fscanf(f,"%ld %d",&r,&d);
    for(j=1;j<r;j++)
            {
                a=fact(r)/(fact(r-j)*fact(j));
                if(a%d==0) nr++;
            }
    fprintf(g,"%ld",nr);
    fclose(f);
    fclose(g);
    return 0;
}