Cod sursa(job #58546)
Utilizator | Data | 6 mai 2007 12:39:09 | |
---|---|---|---|
Problema | Pascal | Scor | 10 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.35 kb |
#include<stdio.h>
FILE *f,*g;
unsigned long int r,i,j;
int d;
unsigned long int p1=1,p2=1,k,nr;
int main()
{
f=fopen("pascal.in","r");
g=fopen("pascal.out","w");
fscanf(f,"%ld %d",&r,&d);
i=r;
for(j=2;j<=i;j++)
{
for(k=1;k<=j;k++)
p2*=k;
for(k=i-j+1;k<=i;k++)
p1*=k;
if((p1/p2)%d==0)
nr++;
}
fprintf(g,"%d",nr);
fcloseall();
return 0;
}