Cod sursa(job #902479)
Utilizator | Data | 1 martie 2013 14:31:37 | |
---|---|---|---|
Problema | Pascal | Scor | 30 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.36 kb |
#include<fstream>
using namespace std;
int t[23170][23170],R,D,i,j,rd;
int main()
{ifstream f("pascal.in");
ofstream g("pascal.out");
f>>R>>D;
for(i=0;i<=R;i++)
{t[i][0]=1;
t[i][i]=1;
}
if(R==0||R==1)
g<<0;
else
{for(i=2;i<=R;i++)
for(j=1;j<i;j++)
t[i][j]=t[i-1][j-1]+t[i-1][j];
for(i=0;i<=R;i++)
if(t[R][i]%D==0)
rd++;
g<<rd;
}
return 0;
}