Cod sursa(job #1202780)
Utilizator | Data | 29 iunie 2014 15:44:38 | |
---|---|---|---|
Problema | Pascal | Scor | 30 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
#include <fstream>
using namespace std;
long r,d,nr,i;
int nrx(int x,int n)
{
int nrx=x,nr=0;
while(n>=nrx)
{
nr+=n/nrx;
nrx*=x;
}
return nr;
}
int main()
{
ifstream f("pascal.in");
f>>r>>d;f.close();
for(i=1;i<=r;i++)
if(nrx(d,r)-nrx(d,r-i)-nrx(d,i)>0) nr++;
ofstream g("pascal.out");
g<<nr;g.close();
return 0;
}