Cod sursa(job #178030)
Utilizator | Pal 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;}