Cod sursa(job #1377778)

Utilizator bajiBajan Vlad baji Data 6 martie 2015 01:36:02
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.66 kb
#include <fstream>

using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int nr,r,k=0,d,i,j,v[5000000],w[5000000];
int main()
{
   fin>>r;
   fin>>d;
   v[0]=1;
   while(i+1<=r)
   {
     for(j=0;j<=i;j++)
      {w[j]=v[j]+v[j-1];
      // fout<<w[j]<<" ";
      }

     // fout<<'\n';
      i++;

     if(i+1==r)
     k=1;

     for(j=0;j<=i;j++)
      {v[j]=w[j]+w[j-1];
     // fout<<v[j]<<" ";
      }
    //  fout<<'\n';

      i++;
   }
   if(k==0)
   for(i=0;i<=r;i++)
     {if(v[i]%d==0)
      nr++;
     }

   else

    for(i=0;i<=r;i++)
     if(w[i]%d==0)
     nr++;

   fout<<nr;

    return 0;
}