Cod sursa(job #1377778)
Utilizator | 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;
}