Cod sursa(job #49952)
Utilizator | Data | 6 aprilie 2007 17:04:26 | |
---|---|---|---|
Problema | Pascal | Scor | 30 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.53 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(pow(d,c)<=n)
{
s+=int(n/pow(d,c));
c++;
}
}
return s;
}
int main()
{
fin>>r>>d;
int s=fact(d,r);
int 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;
}