Cod sursa(job #1468553)

Utilizator otto1Palaga Vicentiu-Octavian otto1 Data 6 august 2015 13:02:48
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb
#include<fstream>
using namespace std;
int v2[5000005],v3[5000005],v5[5000005],put2,put3,put5,R,D,fact=1,rd;
int main()
{ifstream f("pascal.in");
ofstream g("pascal.out");
f>>R>>D;
for(int 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 (int i=1;i<=R;i++)
{put2+=v2[R-i+1]-v2[i];
put3+=v3[R-i+1]-v3[i];
put5+=v5[R-i+1]-v5[i];
if(D==2&&put2>0)
rd++;
else if(D==3&&put3>0)
rd++;
else if(D==5&&put5>0)
rd++;
else if(D==4&&put2>1)
rd++;
else if(D==6&&put2>0&&put3>0)
rd++;
}
g<<rd;
return 0;
}