Cod sursa(job #902479)

Utilizator otto1Palaga Vicentiu-Octavian otto1 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;
}