Cod sursa(job #2698097)

Utilizator toma_ariciuAriciu Toma toma_ariciu Data 20 ianuarie 2021 22:34:56
Problema Pascal Scor 0
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.52 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];
        fout<<i<<' '<<f[i]<<' '<<v[i]<<'\n';
    }
    for(int i=0; i<=r; i++)
    {
        if(f[r]>(f[r-i]+f[i]))
            c++;
    }
    fout<<c;
    return 0;
}