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