Cod sursa(job #777057)

Utilizator tzipleatudTudor Tiplea tzipleatud Data 10 august 2012 21:24:58
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],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/2;i++)
    {
        c+=P[(r-i+1)/i];
        ANS+=c>0;
        if (i+1==(r+1)/2) ANS*=2;
    }
    g << ANS << '\n';
    f.close();g.close();
    return 0;
}