Cod sursa(job #183489)

Utilizator jeanFMI - Petcu Ion Cristian jean Data 22 aprilie 2008 11:42:11
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.61 kb
#include<fstream.h>
#include<math.h>
unsigned long c,i,j,p,sol=0,n,d,nr=0,nr1,nr2,aux;
int main()
{
ifstream f("pascal.in");
ofstream g("pascal.out");

f>>n>>d;


c=d; p=1;

while(c<=n)

 { aux=n/c; nr+=aux;

   p++;

   c=pow(d,p);

 }



for(j=0;j<=n;j++)


 {
   c=d; p=1; nr1=0; nr2=0;

   while(c<=j)

    {
      aux=j/c; nr1+=aux;

      p++;

      c=pow(d,p);
    }

   c=d; p=1;

   while(c<=(n-j))

    {
      aux=(n-j)/c; nr1+=aux;

      p++;

      c=pow(d,p);
    }

    if(nr-nr1-nr2>0) sol++;

  }

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