Cod sursa(job #581435)

Utilizator DarmanPop Ioan Darman Data 14 aprilie 2011 10:38:02
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include <fstream>
using namespace std;
ifstream fin("2.in");
ofstream fout("2.ouot");
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++;
    fout<<k;
    return 0;
}