Cod sursa(job #2180324)

Utilizator AlexandruabcdeDobleaga Alexandru Alexandruabcde Data 20 martie 2018 19:52:13
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.91 kb
#include <fstream>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int div2[5000005],div3[5000005],div5[5000005],lin,d,i,z1,z2,z3,sol;
int main()
{
    f>>lin>>d;
    for (i=2; i<=lin; i++)
    {
        if (i%2==0) div2[i]=div2[i/2]+1;
        if (i%3==0) div3[i]=div3[i/3]+1;
        if (i%5==0) div5[i]=div5[i/5]+1;
    }
    for (i=1; i<=lin; i++)
    {

        z1=z1+div2[lin-i+1]-div2[i];
        z2=z2+div3[lin-i+1]-div3[i];
        z3=z3+div5[lin-i+1]-div5[i];
        if(d==2 && z1>0)
        {
            sol++;
        }
        else if(d==3 && z2>0)
        {
            sol++;
        }
        else if(d==4 && z1>1)
        {
            sol++;
        }
        else if(d==5 && z3>0)
        {
            sol++;
        }
        else if(d==6 && z1>0 && z2>0)
        {
            sol++;
        }
    }
    g<<sol<<'\n';
    return 0;
}