Cod sursa(job #1244221)

Utilizator alex.vasiuVasiu Alexandru alex.vasiu Data 16 octombrie 2014 21:53:22
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include <fstream>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
long long unsigned fact(int n)
{
    if(n==1 || n==0)
        return 1;
    else
        return n*fact(n-1);
}
long long unsigned solve(int a,int b)
{
    long long unsigned p=1;
    for(int i=b+1;i<=a;i++)
        p*=i;
    return p/fact(a-b);
}
int main()
{
    int r,d;
    f>>r>>d;
    f.close();
    int ok=0;
    for(int j=1;j<r;j++)
        if(solve(r,j)%d==0)
        ok++;
            g<<ok;
      g.close();
}