Cod sursa(job #774323)
| Utilizator | 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;
}
