Cod sursa(job #2033805)

Utilizator robertro1Benedek Robert George robertro1 Data 7 octombrie 2017 10:49:14
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include <bits/stdc++.h>

using namespace std;
typedef unsigned long long ull;
ull exp(ull x,int p)
{
    ull e=0, z=p;
    while(x/p){e=e+x/p;
    if(e>2) break;
    p*=z;}
    return e;
}


int main()
{
ifstream f("pascal.in");
ofstream g("pascal.out");
int r,d,p,div=0;;
f>>r>>d;
for(int i=0; i<=r; i++)
{
    if((exp(r,d)-exp(r-i,d)-exp(i,d))>=1) div++;

}
g<<div;


    return 0;
}