Cod sursa(job #2270203)

Utilizator aditzu7Adrian Capraru aditzu7 Data 27 octombrie 2018 10:07:06
Problema Pascal Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.62 kb
#include <fstream>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int r,i,mm,sol2,sol3,sol5,x2,x3,x5,a2[5000005],a3[5000005],a5[5000005],v[5000005],vr,d;
int main()
{f>>r>>d;
for(i=1;i<=r;i++){
    if(i%2==0) a2[i]=a2[i/2]+1;
    if(i%3==0) a3[i]=a3[i/3]+1;
    if(i%5==0) a5[i]=a5[i/5]+1;
}
switch (d){
case 2: x2=1;break;
case 3: x3=1;break;
case 4: x2=2;break;
case 5: x5=1;break;
case 6: x2=1,x3=1;break;
}
for(i=1;i<=r;i++){
    sol2+=a2[r-i+1]-a2[i];
    sol3+=a3[r-i+1]-a3[i];
    sol5+=a5[r-i+1]-a5[i];
    if(sol2>=x2&&sol3>=x3&&sol5>=x5) mm++;
}
 g<<mm;
     return 0;
}