Cod sursa(job #171194)
Utilizator | Procopliuc Adrian Procopliuc | Data | 3 aprilie 2008 20:20:36 |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 kb |
# 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;
}