Cod sursa(job #1132881)
| Utilizator | Data | 3 martie 2014 23:54:29 | |
|---|---|---|---|
| Problema | Pascal | Scor | 0 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.59 kb |
#include<fstream>
#define NMax 5000005
using std::ifstream;
using std::ofstream;
int main()
{
int D,nr=0;
long R,L1[NMax],L2[NMax];
ifstream fin("pascal.in");
ofstream fout("pacal.out");
fin>>R>>D;
L1[0]=L2[0]=1;
for(long i=1;i<=R;i++)
{
for(long j=1;j<=i;j++)
L2[j]=L1[j]+L1[j-1];
for(long j=1;j<=i;j++)
L1[j]=L2[j];
}
for(long i=1;i<=R;i++)
if(!(L2[i]%D))
nr++;
fout<<nr;
fin.close();
fout.close();
return 0;
}
