Cod sursa(job #2698773)

Utilizator toma_ariciuAriciu Toma toma_ariciu Data 22 ianuarie 2021 23:04:56
Problema Pascal Scor 40
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.51 kb
#include <fstream>

using namespace std;

ifstream fin("pascal.in");
ofstream fout("pascal.out");

const int kk=5000001;
int v[kk];
long long f[kk];

int main()
{
    int n,r,d,c=0;
    fin>>r>>d;
    for(int i=1; i<=r; i++)
    {
        if(i%d==0)
            v[i]=v[i/d]+1;
        else
            v[i]=0;
        f[i]=f[i-1]+v[i];
    }
    for(int i=0; i<=(r-1)/2; i++)
    {
        if(f[r]>(f[r-i]+f[i]))
            c+=2;
    }
    if(r%2==0)
        c++;
    fout<<c;
    return 0;
}