Cod sursa(job #322347)

Utilizator alexandru92alexandru alexandru92 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;
}