Cod sursa(job #777064)

Utilizator tzipleatudTudor Tiplea tzipleatud Data 10 august 2012 21:33:35
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include <fstream>
#define N 5000010

using namespace std;

ifstream f("pascal.in");
ofstream g("pascal.out");

int d,r,i,P[N],F[N],ANS=0,m,c=0;
int main ()
{
    f >> r >> d;
    P[d]=1;
    for (i=d+1;i<=r;i++)
        P[i]=P[i/d]+1;
    for (i=1;i<=r;i++)
    {
        F[i]=F[i-1];
        if (i%d==0)
            F[i]+=P[i];
    }

    for (i=0;i<=r;i++)
        ANS+=(F[r]-F[r-i]-F[i])>0;

    g << ANS << '\n';
    f.close();g.close();
    return 0;
}