Cod sursa(job #183531)

Utilizator jeanFMI - Petcu Ion Cristian jean Data 22 aprilie 2008 12:36:03
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include<fstream.h>
long long v[5000010],fac[5],x,d,i,j,n,aux,p,sol=0,k;
int main()
{
ifstream f("pascal.in");
ofstream g("pascal.out");

f>>n>>x;

d=2;
while(x!=1)

  { if(x%d==0)

    while(x%d==0)

    {fac[++k]=d; x/=d;}

    d++;

  }

for(i=1;i<=n;i++)


    for(j=1;j<=k;j++)

     { aux=i; p=0;


	   if(aux%fac[j]==0)

	      while(aux%fac[j]==0)

	       {p++; aux/=fac[j];}

       v[i]=v[i-1]+p;
      }

for(i=1;i<=n;i++)

  if(v[n]-v[i]-v[n-i]>0) sol++;

g<<sol;
f.close();
g.close();
return 0;
}