Cod sursa(job #1377773)

Utilizator bajiBajan Vlad baji Data 6 martie 2015 01:27:44
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 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)
   {i++;
     for(j=0;j<=i;j++)
      w[j]=v[j]+v[j-1];
      i++;
     if(i+1==r)
     k=1;
     for(j=0;j<=i;j++)
      v[j]=w[j]+w[j-1];
      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;
}