Cod sursa(job #1470774)

Utilizator acomAndrei Comaneci acom Data 12 august 2015 11:53:52
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.79 kb
#include<fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int r,d,p,sol;
inline int num(int N, int D)
{
    if (D==2 || D==3 || D==5)
    {
        int nr=0;
        for (long long i=D;i<=N;i*=D)
            nr+=N/i;
        return nr;
    }
    if (D==6)
        return min(num(N,2),num(N,3));
    return (num(N,2)<<1);
}
int main()
{
    int i;
    fin>>r>>d;
    p=num(r,d);
    if (r&1)
    {
        for (i=1;i<=(r>>1);++i)
            if (p>num(i,d)+num(r-i,d))
                ++sol;
        sol<<=1;
    }
    else
    {
        for (i=1;i<(r>>1);++i)
            if (p>num(i,d)+num(r-i,d))
                ++sol;
        sol<<=1;
        if(p>num(r>>1,d)*2)
            ++sol;
    }
    fout<<sol<<"\n";
    return 0;
}