Cod sursa(job #1155354)

Utilizator darkylawlTritean Tudor Adrian darkylawl Data 26 martie 2014 20:48:43
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include <stdio.h>

int x[102][102];


void div(int n,int &nr,int i,int j,int d)
{
    if(j<n)
    {
        if(x[i][j]%d==0){
            nr++,div(n,nr,i,j+1,d);}
        else div(n,nr,i,j+1,d);
    }
}

void pascal(int i,int j,int n)
{
    while(i<=n)
    {
        x[i+1][j++]=1;
        x[i][1]=1,++i;
    }
    for(int u=3;u<=j;++u)
        for(int k=2;k<=u-1;++k)
            x[u][k]=x[u-1][k]+x[u-1][k-1];
}

int main()
{
    freopen("pascal.in","r",stdin);
    freopen("pascal.out","w",stdout);
    int R,D,nr=0;
    scanf("%d",&R);
    scanf("%d",&D);
    pascal(1,2,R+1);
    div(R+1,nr,R+1,1,D);
    printf("%d",nr);
    return 0;
}