Cod sursa(job #9834)
| Utilizator | Data | 27 ianuarie 2007 17:33:47 | |
|---|---|---|---|
| Problema | Pascal | Scor | 10 |
| Compilator | c | Status | done |
| Runda | Arhiva de probleme | Marime | 0.5 kb |
#include <stdio.h>
int main ()
{
int R,D,rez,k,nr;
long long sus,jos;
freopen("pascal.in","r",stdin);
freopen("pascal.out","w",stdout);
scanf ("%d %d",&R,&D);
rez=0;
if (R%D==0)
{
rez+=2;
}
nr=2;
if (nr<=R/2)
{
sus=1;k=nr+1;
while (k<=R)
{
sus=sus*k;
k++;
}
jos=1;k=1;
while (k<=R-nr)
{
jos=jos*k;
k++;
}
sus=sus/jos;
if (sus%D==0)
{
if ((R-1)%2==1) rez+=1;
if ((R-1)%2==0) rez+=2;
}
nr++;
}
printf ("%d\n",rez);
return 0;
}
