Cod sursa(job #3350784)

Utilizator EricDimiCismaru Eric-Dimitrie EricDimi Data 12 aprilie 2026 22:44:51
Problema Pascal Scor 40
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.66 kb
#include <fstream>

using namespace std;

ifstream f("pascal.in");
ofstream g("pascal.out");

int Exp(int n, int p)
{
    if(p != 6)
    {
        int t = p, exp = 0;
        while(t <= n)
        {
            exp += n / t;
            t *= p;
        }
        return (p == 4) ? (exp >> 1) : exp;
    }
    return min(Exp(n, 2), Exp(n, 3));
}

bool Comb(int n, int k, int p)
{
    return Exp(n, p) - (Exp(k, p) + Exp(n - k, p));
}

int main()
{
    int R, D, cnt = 0;
    f >> R >> D;
    for(int i = 0; i <= R; i++)
        if(Comb(R, i, D) > 0)
            cnt++;
    g << cnt << '\n';
    f.close();
    g.close();
    return 0;
}