Cod sursa(job #1244221)
Utilizator | 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();
}