Cod sursa(job #171193)

Utilizator ProcopliucProcopliuc Adrian Procopliuc Data 3 aprilie 2008 20:19:30
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.69 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;   
}