Cod sursa(job #58546)

Utilizator alex_aurelia_31Neamtu Alexandra alex_aurelia_31 Data 6 mai 2007 12:39:09
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#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;
}