Cod sursa(job #681170)

Utilizator misinoonisim necula misino Data 16 februarie 2012 18:36:23
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<cstdio>
using namespace std;
FILE *f,*g;
long nr,i,j,r,d,a[5000000],b[5000000];
int main()
{f=fopen("pascal.in","r");
g=fopen("pascal.out","w");
fscanf(f,"%ld%ld",&r,&d);
a[1]=1;
for(i=2;i<=r+1;i++)
{for(j=1;j<=i;j++)
	b[j]=a[j-1]+a[j];
for(j=1;j<=i;j++)
	a[j]=b[j];
}
for(i=1;i<=r+1;i++)
	if(a[i]%d==0)
		nr++;
	
	fprintf(g,"%d",nr);
fclose(f);
fclose(g);
return 0;
}