Cod sursa(job #2270218)

Utilizator nicholascantarNicholas David Cantar Gogitidze nicholascantar Data 27 octombrie 2018 10:09:40
Problema Pascal Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.7 kb
#include <fstream>

using namespace std;
int n,d,gr,rest,D,p2,p3,p5,v2[5000005],v3[5000005],v5[5000005],sol,i,r;
int main()
{
    ifstream fin ("pascal.in");
    ofstream fout ("pascal.out");
    fin>>r>>d;
    for(i=1;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++)
    {
        p2=p2+v2[r-i+1]-v2[i];
        p3=p3+v3[r-i+1]-v3[i];
        p5=p5+v5[r-i+1]-v5[i];
        if(d==2&&p2>0) sol++;
        else if(d==3&&p3>0) sol++;
        else if(d==4&&p2>=2) sol++;
        else if(d==5&&p5>0) sol++;
        else if(d==6&&p2>0&&p3>0) sol++;
    }
    fout<<sol;
    return 0;
}