Cod sursa(job #190849)
| Utilizator |  Procopliuc 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 |
# 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;
}