Cod sursa(job #49954)

Utilizator Mishu91Andrei Misarca Mishu91 Data 6 aprilie 2007 17:11:47
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
using namespace std;
#include<fstream>
#include<math.h>

ifstream fin("pascal.in");
ofstream fout("pascal.out");

long r;
int d,contor;

int fact(int d,long n)
{
   int s=0; 
   if(n==0) return 0;
   else
   {
     int c=1;
     while(long(pow(d,c))<=n)
     {
       s+=int(n/pow(d,c));
       c++;
     }
   }
   return s;
}
   
int main()
{
  fin>>r>>d;
  int s=fact(d,r);
  long i;
  for(i=0;i<=r;i++)
    if(s-fact(d,r-i)-fact(d,i)>0) contor++;
  fout<<contor;
  fin.close();
  fout.close();
  return 0;
}