Cod sursa(job #247820)

Utilizator mebobBota Bogdan mebob Data 24 ianuarie 2009 01:30:13
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.47 kb
#include<fstream.h>

int fact(int a)
{
	int i, f=1;
	for (i=1; i<=a; i++)
		{
		f=f*i;
		}
	return f;
}

int poz(int i, int j)
{
	int p,k;
	k=i-j;
	p=fact(i)/(fact(k)*fact(j));
	return p;
}

int main()
{
	long int r, j, pozi, d, y=0;
	ifstream in("pascal.in");
	ofstream out ("pascal.out");
	in>>r;
	in>>d;
	if ((r>=0)&&(r<=5000000)&&(d>=2)&&(d<=6))
	{
	for (j=1; j<=r; j++)
		{
		pozi=poz(r, j);
		if (pozi%d==0) y++;
		}
	out<<y;
	}
	return 0;
}