Cod sursa(job #1663923)

Utilizator AndreiD31Dragan Andrei AndreiD31 Data 26 martie 2016 11:28:51
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.89 kb
#include <fstream>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int n,i;
int exp2[10001],d,j,nr2,nr3,nr4,nr22,nr5,nrr,nr33,nr55,exp3[10001],exp5[10001];
int main()
{
  f>>n>>d;
   for(i=1;i<=n;i++)
   {
       if(i%2==0){exp2[i]=1+exp2[i/2];}
   }
    for(i=1;i<=n;i++)
   {
       if(i%3==0){exp3[i]=1+exp3[i/3];}
   }
    for(i=1;i<=n;i++)
   {
       if(i%5==0){exp5[i]=1+exp5[i/5];}
   }

   for(j=1;j<=n+1;j++)
   {
      nr2=0;nr3=0;nr4=0;
      nr22=exp2[d];
      nr33=exp3[d];
      nr55=exp5[d];
      for(i=1;i<=n;i++){nr2=nr2+exp2[i];nr3=nr3+exp3[i];nr5=nr5+exp5[i];}
      for(i=1;i<=(n-j);i++){nr2=nr2-exp2[i];nr3=nr3-exp3[i];nr5=nr5-exp5[i];}
      for(i=1;i<=j;i++){nr2=nr2-exp2[i];nr3=nr3-exp3[i];nr5=nr5-exp5[i];}

      if(nr2>=nr22&&nr3>=nr33&&nr5>=nr55)
      {
          nrr++;
      }
   }
   g<<nrr;
    return 0;
}