Cod sursa(job #681169)
Utilizator | Data | 16 februarie 2012 18:30:44 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.37 kb |
#include<cstdio>
using namespace std;
FILE *f,*g;
long nr,i,j,r,d,a[100][100];
int main()
{f=fopen("pascal.in","r");
g=fopen("pascal.out","w");
fscanf(f,"%ld%ld",&r,&d);
a[1][1]=1;
for(i=2;i<=r+1;i++)
for(j=1;j<=i;j++)
a[i][j]=a[i-1][j-1]+a[i-1][j];
for(i=1;i<=r+1;i++)
if(a[r+1][i]%d==0)
nr++;
fprintf(g,"%d",nr);
fclose(f);
fclose(g);
return 0;
}