Cod sursa(job #1945892)

Utilizator VladAfrasineiAfrasinei VladAfrasinei 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;
}