Pagini recente » Cod sursa (job #221832) | Cod sursa (job #2320126) | Cod sursa (job #937130) | Cod sursa (job #2871336) | Cod sursa (job #171194)
Cod sursa(job #171194)
# include <stdio.h>
long int x,y,r,d,k,i,z,a[1000000],j;
int main ()
{
freopen ("pascal.in","r",stdin);
freopen ("pascal.out","w",stdout);
scanf ("%li",&r);
scanf ("%li",&d);
k=0;
a[0]=1;
a[1]=r;
y=r;
j=2;
for (i=2;i<=r/2;i++)
{
z=r-i+1;
x=(z*y)/i;
a[j]=x;
j++;
y=x;
}
for (i=0;i<j;i++)
if (a[i]%d==0)
k=k+2;
if (r%2==0)
if (a[j-1]%d==0)
k--;
printf ("%li",k);
return 0;
}