Cod sursa(job #581447)

Utilizator DarmanPop Ioan Darman Data 14 aprilie 2011 10:46:02
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include <fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int d,k=0; double r;
int Fact(int i)
{   int z=2,su=1;
    while(z<=i)
    { su*=z; z++;}
    return su;
}
int main()
{   fin>>r>>d;
    for(int i=0;i<=r;i++)
     //   fout<<Fact(r)/(Fact(r-i)*Fact(i))<<" ";
        if(Fact(r)/(Fact(r-i)*Fact(i))%d==0)
            k++;
    return 0;
}