Cod sursa(job #729545)

Utilizator galbeniGal Beni galbeni Data 29 martie 2012 18:29:42
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include <stdio.h>

int prod(int x,int y)
{	int e=1;
	for (int i=x;i<=y;++i)
		e*=i;
	return e;
}

int main()
{	int R,D,E=0;
	FILE *f=fopen("pascal.in","r");
	fscanf(f,"%d %d",&R,&D);
	fclose(f);
	for (int j=1;j<R;j++)
		if ((prod(R-j+1,R)/prod(2,j))%D==0)
			++E;
	FILE *g=fopen("pascal.out","w");
	fprintf(g,"%d",E);
	fclose(g);
}