Cod sursa(job #3250728)

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

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};

int main()
{
    f.tie(NULL);
    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 ++)
    {
        int x = r - i + 1;
        for(int j = 0; j < 3; j ++)
            while(x % prim[j] == 0)
                x /= prim[j], exp[j] ++;

        x = i;
        for(int j = 0; j < 3; j ++)
            while(x % prim[j] == 0)
                x /= prim[j], exp[j] --;

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

    g << numi;
    return 0;
}