Cod sursa(job #1202780)

Utilizator ovidiuz98Zamfir Ovidiu ovidiuz98 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;
}