Cod sursa(job #190850)

Utilizator ProcopliucProcopliuc Adrian Procopliuc Data 24 mai 2008 13:46:27
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
# include <stdio.h>
long long int i,x,d,r,k,n;
float y;
int main ()
{
freopen ("pascal.in","r",stdin);
freopen ("pascal.out","w",stdout);
scanf ("%lli",&r);
scanf ("%lli",&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 ("%lli",k-1);
else
printf ("%lli",k);
return 0;
}