Cod sursa(job #1024874)

Utilizator Mitsa3Neamt Mihai Mitsa3 Data 9 noiembrie 2013 11:41:50
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
#define MAX 20000
int a[MAX][MAX];
int main()
{
    int r,d,nr=0;
    fin >> r >> d;
    int i,j;
    for(i=0;i<=r;i++)
        a[i][0]=1;
    for(i=1;i<=r;i++)
        for(j=1;j<=i;j++)
            a[i][j]=a[i-1][j]+a[i-1][j-1];
    for(i=1;i<=r;i++)
        if(a[r][i]%d==0)
            nr++;
    fout << nr << "\n";
    return 0;
}