Cod sursa(job #734074)

Utilizator dicu_dariaDaria Dicu dicu_daria Data 13 aprilie 2012 14:57:16
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.93 kb
#include <fstream>
using namespace std;
int x,i,d,n,sol,d1,d2,D,x1,x2,div1[5000010],div2[5000010];
int main()
{
    ifstream fi("pascal.in");
    ofstream fo("pascal.out");
    fi>>n>>D;
    if(D==6) { d1=2; d2=3; } else
    if(D==4) d1=2; else d1=D;
    for(i=1;i<=n;i++)
    {
        //calculez divizorii pentru i!
        x=i;
        while(x%d1==0) { div1[i]++; x/=d1; }
        div1[i]+=div1[i-1];
        if(d2!=0)
        {
            while(x%d2==0) { div2[i]++; x/=d2; }
            div2[i]+=div2[i-1];
        }
    }
    for(i=0;i<=n;i++)
    {
        if(D==6)
        {
            x1=min(div1[n],div2[n]);
            x2=min(div1[i]+div1[n-i],div2[i]+div2[n-i]);
        }
        else
        if(D==4)
        {
            x1=div1[n]/2;
            x2=(div1[n-i]+div1[i])/2;
        }
        else
        {
            x1=div1[n]; x2=div1[n-i]+div1[i];
        }
        if(x1>x2) sol++;

    }
    fo<<sol<<"\n";
    return 0;
}