Cod sursa(job #443249)

Utilizator iulishorIulian Popescu iulishor Data 16 aprilie 2010 16:02:35
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include<fstream>
using namespace std;
int n,i,s,r,d,nr;
int a[100];
int comb(int n, int k)
{
	if(k==0||k==n)
		return 1;
	else
		return comb(n-1,k)+comb(n-1,k-1);
}
int main()
{
	ifstream f("pascal.in");
	ofstream g("pascal.out");
	f>>r>>d;
	for(i=0;i<=r;i++)
		
	a[i]=comb(r,i);

	for(i=0;i<=r;i++)
		if(a[i]%d==0)
			nr++;
		g<<nr;
	return 0;
}