Cod sursa(job #1314318)

Utilizator alexchireaAlexandru Chirea alexchirea Data 11 ianuarie 2015 19:14:39
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include <fstream>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int t=1,k,r,d;
int fact(int x)
{
    int prd = 1;
    for (int i=2; i<=x; i++) prd*=i;
    return prd;
}
int main()
{
    f>>r>>d;
    t=fact(r)/(fact(r-1)*fact(1));
    if (t%d==0) k++;
    while (t!=1)
    {
        for (int i=2; ;i++)
        {
           if (fact(r-i)*fact(i)==0) return 0;
           t=fact(r)/(fact(r-i)*fact(i));
           if (t==1) break;
           if (t%d==0) k++;
        }
    }
    g<<k;
    return 0;
}