Cod sursa(job #178315)

Utilizator georgepalPal George Catalin georgepal Data 14 aprilie 2008 13:27:58
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.58 kb
#include<stdio.h>
long long R,a[100][100];
int D;
void gen_pas(int i,int j)
	{
	while(i<=R)
		{
		while(j<=i) {a[i][j]=a[i-1][j-1]+a[i-1][j];j++;}
		i++;j=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);
	/*for(i=0;i<=R;i++)
		{for(j=0;j<=i;j++)
			fprintf(g,"%lld",a[i][j]);
			fprintf(g,"\n");
			} */
	fcloseall();
	return 0;}