Cod sursa(job #410920)

Utilizator Raz_Van_BarbascuBarbascu Razvan Raz_Van_Barbascu Data 4 martie 2010 17:27:01
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include<fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int R,D,di;

long prod(long a,long b)
{
	long p=1;
	for(long i=a;i<=b;i++)
		p*=i;
	return p;
}

long fact(long a)
{
	long p=1;
	for(long i=2;i<=a;i++)
		p*=i;
	return p;
}
void cautare()
{
	long i;
	for(i=0;i<(R+1)/2;i++)
		if((prod(R-i+1,R)/fact(i))%D==0) di+=2;
	i=(R+1)/2;
	if(prod(R-i+1,R)/fact(i)%D==0) 
	{
		if(R%2) di+=2;
		else  di++;
	}
}
int main()
{
	f>>R>>D;
	f.close();
	
	cautare();
	
	g<<di;
	g.close();
	return 0;
}