Cod sursa(job #180760)

Utilizator MirageRobert Sandu Mirage Data 17 aprilie 2008 14:51:40
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<stdio.h>
int c[2][5000000];
int main () {
	freopen("pascal.in","r",stdin);
	freopen("pascal.out","w",stdout);
	int i,j,x,r,d,nr=0;
	scanf("%d%d",&r,&d);
	c[0][0]=c[0][1]=1;
	for(i=2;i<=r;++i){
		c[1][0]=1;
		for(j=1;j<=i;++j)
			c[1][j]=(c[0][j-1]+c[0][j]);
		for(x=0;x<j;++x)
			c[0][x]=c[1][x];
	}
	for(i=0;i<r;++i)
		if(!(c[1][i]%d))
			++nr;
	printf("%d\n",nr);
	return 0;
}