Cod sursa(job #748550)

Utilizator eddy13579Eduard Stoica eddy13579 Data 13 mai 2012 18:40:58
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<iostream>
#include<fstream>
int v[500000];
using namespace std;
int fact(long long n)
{
	int i,f=1;
	for(i=1;i<=n;i++)
	{
		f=f*i;}
	return f;
}
int main()
{
	ifstream f("pascal.in");
	ofstream g("pascal.out");
	int i,d,r,a=0;
	f>>r>>d;
	for(i=1;i<=r+1;i++)
	{
		v[i]=fact(r)/(fact(r-i)*fact(i));
		if(r==i) a--;
		if(v[i]%d==0) a++;
	}
	g<<a;
	return 0;
}