Cod sursa(job #190849)

Utilizator ProcopliucProcopliuc Adrian Procopliuc Data 24 mai 2008 13:44:59
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
# include <stdio.h>
long int i,x,d,r,k,n;
float y;
int main ()
{
freopen ("pascal.in","r",stdin);
freopen ("pascal.out","w",stdout);
scanf ("%li",&r);
scanf ("%li",&d);
k=0;
x=1;
for (i=1;i<=r/2;i++)
{
y=(r-i+1.0)/i;
x=x*y;
if (x%d==0)
k=k+2;
}
if (r%2==0)
printf ("%li",k-1);
else
printf ("%li",k);
return 0;
}