Cod sursa(job #443563)

Utilizator valentina506Moraru Valentina valentina506 Data 17 aprilie 2010 16:16:32
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.68 kb
#include<fstream>
using namespace std;
int n,i,j,d2,d3,d5,nr,a[10],b[10];
void desc(long n)
{
	d2=0;
	d3=0;
	d5=0;
	for(i=1;i<=n;i++)
	{
		nr=i;
		while(nr&&nr%2==0)
		{
			d2++;
			nr/=2;
		}
		while(nr&&nr%3==0)
		{
			d3++;
			nr/=3;
		}
		while(nr&&nr%5==0)
		{
			d5++;
			nr/=5;
		}
	}
}
int main()
{
	ifstream f("pascal.in");
	ofstream g("pascal.out");
	f>>n;
	desc(n);
	a[2]=d2;
	a[3]=d3;
	a[5]=d5;
	for(i=0;i<=n/2;i++)
	{
		desc(i);
		b[2]=d2;
		b[3]=d3;
		b[5]=d5;
		desc(n-i);
		b[2]+=d2;
		b[3]+=d3;
		b[5]+=d5;
	if(a[2]-b[2]>=0&&a[3]-b[3]>=0&&a[5]-b[5]>=0)
		nr++;
	}
	if(n%2==0)
		g<<nr*2-1;
	else
		g<<nr*2;
	return 0;
}