Cod sursa(job #1545392)

Utilizator Julian.FMI Caluian Iulian Julian. Data 6 decembrie 2015 18:29:10
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.63 kb
#include <iostream>
#include <fstream>
#define nmax 5000009
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int dr2[nmax],dr3[nmax],dr5[nmax];
int main()
{int i,r,c,d,p,aux5=0,aux3=0,aux2=0,rez=0;
fin>>r>>d;
for(i=1;i<=r;i++)
    {if(i%2==0)dr2[i]=dr2[i/2]+1;
     if(i%3==0)dr3[i]=dr3[i/3]+1;
     if(i%5==0)dr5[i]=dr5[i/5]+1;}
for(i=1;i<=r;i++)
{aux2+=dr2[r-i+1]-dr2[i];
 aux3+=dr3[r-i+1]-dr3[i];
 aux5+=dr5[r-i+1]-dr5[i];
if(d==2 && aux2>0)rez++;
else if(d==3 && aux3>0)rez++;
else if(d==4 && aux2>1)rez++;
else if(d==5 && aux5>0)rez++;
else if(d==6 && aux2>0 && aux3>0)rez++;
}
fout<<rez;
}