Cod sursa(job #581441)

Utilizator DarmanPop Ioan Darman Data 14 aprilie 2011 10:42:38
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int r,d,k=0;
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;
}