Cod sursa(job #245477)

Utilizator Bogdan_tmmTirca Bogdan Bogdan_tmm Data 18 ianuarie 2009 01:42:15
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.69 kb
#include<iostream.h>
#include<stdio.h>
FILE *f=fopen("pascal.in","r"),*g=fopen("pascal.out","w");
long r,d,prim[6],p,pu[6],nr=0,rez=0,i,j,v[5000001][3],aux2;
int solve()
{
	long i1;
	for(i1=1;i1<=nr;i1++)
		if(v[r][i1]-v[j][i1]-v[r-j][i1]<0)
			return 0;
	return 1;
}
int main()
{
	fscanf(f,"%ld %ld",&r,&d);
	for(i=2;i<=d;i++)
	{
		p=0;
		while(!(d%i)) d/=i,p++;
		if(p)
		{
			nr++;
			prim[nr]=i;
			pu[nr]=p;
		}
	}
	for(i=1;i<=nr;i++)
		for(j=1;j<=r;j++)
			v[j][i]=j/prim[i]+v[j/prim[i]][i];
	long aux=r/2; 
	for(j=1;j<=aux;j++)
		if(solve())
			if(r%2==0)
				if(j==aux)
					rez++;
				else
					rez+=2;
			else
				rez+=2;
	fprintf(g,"%ld\n",rez);
	return 0;
}