Cod sursa(job #9834)

Utilizator razvan_varnitadragomir razvan razvan_varnita 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;
}