Cod sursa(job #777061)

Utilizator tzipleatudTudor Tiplea tzipleatud Data 10 august 2012 21:29:24
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 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]+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;
}