Cod sursa(job #148814)

Utilizator ProcopliucProcopliuc Adrian Procopliuc Data 4 martie 2008 20:52:07
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
# include <stdio.h>
int i,j,l,a[1000],b[1000],r,d,k;
int main ()
{
freopen ("pascal.in","r",stdin);
freopen ("pascal.out","w",stdout);
scanf ("%i",&r);
scanf ("%i",&d);
a[0]=1;
a[1]=1;
for (i=1;i<r;i++)
{
if (i%2==1)
{
b[0]=1;
j=1;
for (l=0;l<i;l++)
{
b[j]=a[l]+a[l+1];
j++;
}
b[j]=1;
}
else
{
a[0]=1;
j=1;
for (l=0;l<i;l++)
{
a[j]=b[l]+b[l+1];
j++;
}
a[j]=1;
}
}
if (r%2==0)
{
for (i=0;i<=r;i++)
if (b[i]%d==0)
k++;
printf ("%i",k);
}
else
{
for (i=0;i<=r;i++)
if (a[i]%d==0)
k++;
printf ("%i",k);
}
return 0;
}