Cod sursa(job #178030)

Utilizator georgepalPal George Catalin georgepal Data 14 aprilie 2008 00:21:01
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include<stdio.h>
long long R,a[100][100];
int D;
void gen_pas(int i,int j)
	{
	if(i<=R)
		{if(j<=i) {a[i][j]=a[i-1][j]+a[i-1][j-1];
			 gen_pas(i,j+1);
			 }
		else gen_pas(i+1,1);}
	}
int main()
	{
	FILE*f=fopen("pascal.in","r");
	FILE*g=fopen("pascal.out","w");
	fscanf(f,"%lld %d",&R,&D);
	long i,j;
	for(i=0;i<=R;i++)
		{a[i][0]=1;
		a[i][i]=1;}
	gen_pas(1,1);
	int contor=0;
	for(i=1;i<=R;i++)
		if(a[R][i]%D==0) contor++;
	fprintf(g,"%d\n",contor);
	fcloseall();
	return 0;}