Cod sursa(job #2673356)

Utilizator Razvan48Capatina Razvan Nicolae Razvan48 Data 16 noiembrie 2020 16:54:19
Problema Pascal Scor 20
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.64 kb
#include <fstream>

using namespace std;

int main()
{
    ifstream in("pascal.in");
    ofstream out("pascal.out");
    int r;
    int d;
    int sol = 0;
    long long val = 1;

    in >> r >> d;

    if (r < 2)
    {
        out << 0;
        return 0;
    }

    int i = 1;
    for (i = 1; i <= (r - 1) / 2; i++)
    {
        val = val * (r - i + 1) / i;
        if (val % d == 0)
        {
            sol = sol + 2;
        }
    }

    if (r % 2 == 0)
    {
        val = val * (r - i + 1) / i;
        if (val % d == 0)
        {
            sol++;
        }
    }

    out << sol << '\n';

    return 0;
}