Cod sursa(job #1149148)

Utilizator darkylawlTritean Tudor Adrian darkylawl Data 21 martie 2014 15:13:23
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.61 kb
#include <cstdio>

using namespace std;

int x[102][102];

int main()
{
    FILE *f=fopen("pascal.in","r");
    FILE *g=fopen("pascal.out","w");
    int R,D,i,j,nr=0;
    fscanf(f,"%d",&R);
    fscanf(f,"%d",&D);
    for(i=1;i<=R+1;++i)
        for(j=1;j<=R+1;++j)
            if(i==j)
                x[i][j]=1;
    for(i=1;i<=R+1;++i)
        x[i][1]=1;
    for(i=3;i<=R+1;++i)
        for(j=2;j<=R+1;++j)
            x[i][j]=x[i-1][j]+x[i-1][j-1];
    for(i=1;i<=R+1;++i)
        if(x[R+1][i]%D==0)
            ++nr;
    fprintf(g,"%d",nr);
    fclose(f);
    fclose(g);
    return 0;
}