Cod sursa(job #2696896)

Utilizator toma_ariciuAriciu Toma toma_ariciu Data 17 ianuarie 2021 09:56:44
Problema Pascal Scor 40
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.46 kb
#include <fstream>

using namespace std;

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

const int kk=5000001;
int v[kk],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; i++)
    {
        if(f[r]>f[r-i]+f[i])
            c++;
    }
    fout<<c;
    return 0;
}