Cod sursa(job #171194)

Utilizator ProcopliucProcopliuc 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;
}