Cod sursa(job #3250726)

Utilizator Ruxandra009Ruxandra Vasilescu Ruxandra009 Data 23 octombrie 2024 13:39:22
Problema Pascal Scor 70
Compilator cpp-64 Status done
Runda cex_1 Marime 0.71 kb
#include <fstream>
#include <vector>

using namespace std;

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

const int nmax = 5000005;
int r, d, exp[5], divi[5], numi, prim[5] = {2, 3, 5};

void desc(int x, int semn)
{
    for(int i = 0; i < 3; i ++)
        while(x % prim[i] == 0)
            x /= prim[i], exp[i] += semn;
}

int main()
{
    f >> r >> d;

    for(int i = 0; i < 3; i ++)
        while(d % prim[i] == 0)
            d /= prim[i], divi[i] ++;

    for(int i = 1; i < r; i ++)
    {
        desc(r - i + 1, 1);
        desc(i, -1);

        if(exp[0] >= divi[0] && exp[1] >= divi[1] && exp[2] >= divi[2])
            numi ++;
    }

    g << numi;
    return 0;
}