Cod sursa(job #1620272)

Utilizator NecoaraGabrielNecoara Gabriel-Stefan NecoaraGabriel Data 28 februarie 2016 22:48:50
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.65 kb
//http://www.infoarena.ro/problema/pascal
#include<iostream>
#include<fstream>

using namespace std;

long long fac(long long x)
{
    if(x==0)
    return 1;
    else
        return x*fac(x-1);
}
long long formula(long long x1,long long x2)
{
    return fac(x1)/(fac(x1-x2)*fac(x2));
}
int main()
{
    short d;
    long long r,nr=0;
    ifstream f("pascal.in");
    ofstream g("pascal.out");

    f>>r;//randul din triunghi
    f>>d;//cate numere sunt divizibile cu d

    for(long long j=1;j<r;j++)
        if(formula(r,j)%d==0)
        {
            //cout<<formula(r,j)<<" ";
            nr++;}
    g<<nr;
    return 0;
}