Cod sursa(job #1132898)

Utilizator visshanelAlin Florin visshanel Data 4 martie 2014 00:30:01
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include<fstream>

using std::ifstream;
using std::ofstream;

long fact(long nr)
{
    long i,f;
    
    if(nr==0 || nr==1)
        return 1;
    f=1;
    for(i=2;i<=nr;i++)
        f*=i;
    return f;
}
int main()
{
    int D,nr=0;
    long R;
    
    ifstream fin("pascal.in");
    ofstream fout("pascal.out");
    
    fin>>R>>D;
    
    for(long i=0;i<=R/2;i++)
        if(!((fact(R)/(fact(R-i)*fact(i)))%D))
            nr++;
    
    if(!(nr%2))
        fout<<nr*2-1;
    else
        fout<<nr*2;
    
    fin.close();
    fout.close();
    
    return 0;
}