Cod sursa(job #183491)
Utilizator | FMI - Petcu Ion Cristian jean | Data | 22 aprilie 2008 11:43:09 |
---|---|---|---|
Problema | Pascal | Scor | 30 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.61 kb |
#include<fstream.h>
#include<math.h>
unsigned long 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;
}