Cod sursa(job #1945892)
Utilizator | Data | 29 martie 2017 18:56:03 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
#include <iostream>
#include <fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int i,r;
unsigned long long b[5000005];
unsigned long long s,nr,d;
int main()
{
fin>>r>>d;
b[0]=1;
b[1]=1;
for(i=2;i<=r;i++)
b[i]=b[i-1]*i;
for(i=0;i<=r;i++)
{
s=b[r];
s=s/b[i];
s=s/b[r-i];
if(s%d==0)
nr++;
}
fout<<nr;
return 0;
}