Cod sursa(job #57107)

Utilizator FlorianFlorian Marcu Florian Data 1 mai 2007 10:24:56
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<stdio.h>
int main()
{long x,n,i,j,r,d,p,k,fi,fj,fdif,sol=0;
FILE*f=fopen("pascal.in","r");
FILE*g=fopen("pascal.out","w");
fscanf(f,"%ld %ld",&r,&d);
fi=fj=fdif=1;
for(j=1;j<=r;j++)fi*=j;
//r!/(r-j)!*j!
for(j=1;j<=r;j++)
	{
	fdif=1;
	for(i=1;i<=r-j;i++)
		fdif*=i;
	fj=1;
	for(i=1;i<=j;i++)  fj*=i;
	x=fi/(fdif*fj);
	if (x%d==0) sol++;
	}
fprintf(g,"%ld",sol);
fclose(f);
fclose(g);
return 0;}