Cod sursa(job #484967)

Utilizator cristina_ioanaCristina Ioana cristina_ioana Data 16 septembrie 2010 17:35:36
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<fstream>
using namespace std;
long long e(int n,int p)// p=nr. prim
{
	int nr=0;
	while(n>0)
	{nr=nr+n/p;
	n=n/p;
	}
	return nr;
}
int calcul(int r,int k)
{int x,y;
	if(k==2||k==3||k==5)
	{x=e(r,k);
	return x>0;
	}
	else if(k==6)
	{x=e(r,2);
	 y=e(r,3);
	 return min(x,y)>0;
	}
	else {x=e(r,2);
	      return x>=2;
	     }	
}
int main()
{
	int r,d;
	ifstream f("pascal.in");
	ofstream g("pascal.out");
	f>>r>>d;
	int nr=0;
	for(int i=1;i<r;i++)
		nr=nr+calcul(r,i);
	g<<nr<<'\n';
	
}