Cod sursa(job #640390)

Utilizator krahenkeLaszlo Fuleki krahenke Data 25 noiembrie 2011 16:20:38
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.58 kb
#include <iostream>
#include <fstream>

using namespace std;

int R, D;

inline int fact(int n)
{
    if(n<=1) return 1;
    return (n*fact(n-1));
}

void citire()
{
    ifstream fin("pascal.in");
    fin >> R >> D;
    fin.close();
}

inline int ncr(int n, int r) // (row, element)
{
    return (fact(n) / (fact(r) * fact(n-r)));
}

int rezolva()
{
    ofstream fout("pascal.out");
    int count = 0;
    for(int i=0; i<=R; ++i)
    {
        if(ncr(R,i)%D==0) count++;
    }
    fout << count;
}

int main()
{
    citire();
    rezolva();
    return 0;
}