Cod sursa(job #2911425)

Utilizator Theo20067Cismaru Theodor-Alexe Theo20067 Data 29 iunie 2022 13:48:29
Problema Pascal Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.94 kb
#include <fstream>
using namespace std;
ifstream fin ("pascal.in");
ofstream fout("pascal.out");
int R,D,i,V2[5000001],V3[5000001],V5[5000001],nr,sol2,sol3,sol5;
int main()
{
    fin>>R>>D;
    for(i=2;i<=R;i++)
    {
        if(i%2==0)
            V2[i]=V2[i/2]+1;
        if(i%3==0)
            V3[i]=V3[i/3]+1;
        if(i%5==0)
            V5[i]=V5[i/5]+1;
    }
    for(i=1;i<=R;i++)
    {
        sol2=sol2+V2[R-i+1]-V2[i];
        sol3=sol3+V3[R-i+1]-V3[i];
        sol5=sol5+V5[R-i+1]-V5[i];

        if(D==2&&sol2!=0)
            nr++;
        else
            if(D==3&&sol3!=0)
                nr++;
            else
                if(D==4&&sol2>=2)
                    nr++;
                else
                    if(D==5&&sol5!=0)
                        nr++;
                    else
                        if(D==6&&sol2!=0&&sol3!=0)
                            nr++;
    }
    fout<<nr;
    return 0;
}