Cod sursa(job #1197267)

Utilizator tudor0013tudor petrescu tudor0013 Data 11 iunie 2014 15:53:12
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include <cstdio>
using namespace std;

int a[5000001]={1},b[5000001],r,d;
void pascal()
{
	int i,rand;
	rand=2;
	do
	{
		b[1]=b[rand+1]=1;
		for(i=2;i<=rand;i++)
			b[i]=a[i-1]+a[i];
		rand++;
		for(i=1;i<=rand;i++)
			a[i]=b[i];
	}
	while(rand<=r);
}

int main()
{
    freopen("pascal.in","r",stdin);
    freopen("pascal.out","w",stdout);
    scanf("%d%d",&r,&d);
    pascal();
    int num=0;
    for(int i=1;i<=r;i++)
		if(a[i]%d==0)
			num++;
	printf("%d",num);
    return 0;
}