Cod sursa(job #248183)

Utilizator andumMorie Daniel Alexandru andum Data 25 ianuarie 2009 10:17:40
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include <stdio.h>
#define NMAX 5000001

long r,d,i,v1[NMAX],v2[NMAX],j,k,q;

int main()
{

 freopen("pascal.in","r",stdin);
 freopen("pascal.out","w",stdout);

 scanf("%ld %ld", &r, &d);
 v1[0]=1;
 v1[1]=1;
 k=1;
 for (i=2;i<=r;i++)
	{
	 k++;
	 v2[0]=1;
	 for (j=1;j<=k;j++)
		v2[j]=v1[j-1]+v1[j];
	 if (i!=r)
	  for (j=1;j<=k;j++)
		v1[j]=v2[j];
	}
 for (i=0;i<=k;i++)
	if (v2[i]%d==0)
		q++;
 printf("%ld", q);
 return 0;
}