Pagini recente » Rating MIhnea Vor (MIhneaV) | Cod sursa (job #1096442) | Cod sursa (job #292819) | Cod sursa (job #1840126) | Cod sursa (job #439673)
Cod sursa(job #439673)
#include<fstream>
using namespace std;
int a[10000],b[10000];
int r,i,j,k,x,d,nr;
int main()
{
ifstream f("pascal.in");
ofstream g("pascal.out");
f>>r>>d;
for(int t=1;t<=r+1;t++)
{
k=1;
x=2;
if(t==1)
a[1]=1;
else
if(t==2)
{
a[1]=1;a[2]=1;
}
else
{
b[1]=1;
while(k<=t-1)
{
b[x]=a[k]+a[k+1];
x++;
k++;
}
b[x]=1;
for(i=1;i<=t;i++)
a[i]=b[i];
}
}
for(i=1;i<=r+1;i++)
if(a[i]%d==0)
nr++;
g<<nr;
return 0;
}