Cod sursa(job #322347)
Utilizator | Data | 8 iunie 2009 17:38:43 | |
---|---|---|---|
Problema | Pascal | Scor | 10 |
Compilator | c | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
#include <stdio.h>
#include<string.h>
#define Nmax 5000001
int v[Nmax],c[Nmax];
int n,d,nr;
int main()
{register int i,j;
freopen("pascal.in","rt",stdin);
freopen("pascal.out","wt",stdout);
scanf("%d%d",&n,&d);
v[1]=1; c[1]=1;
for(i=1;i<=n;++i)
{for(j=1;j<=i;++j) v[j]=c[j]+c[j-1];
memcpy(c,v,i);
c[j]=v[j]=1;
}
for(i=1;i<=n;++i)
if(v[i]%d==0) ++nr;
printf("%d",nr);
return 0;
}