Cod sursa(job #3313358)

Utilizator Andrei1209Andrei Mircea Andrei1209 Data 3 octombrie 2025 19:16:15
Problema Pascal Scor 10
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.57 kb
#include <fstream>

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

int fac[5000000 + 5], r, d;
int nr_fac(int x )
{
    int cnt = 0;
    while ( x )
    {
        ++cnt;
        x /= d;
    }
    return cnt;
}
int main()
{
    int i;
    fin >> r >> d;
    for ( i = d; i <= r; ++i )
        fac[i] = fac[i - 1] + nr_fac(i);

    int sol = 0;
    for ( i = 0; i <= r; ++i )
    {
        int nr_d = fac[r] - fac[r - i] - fac[i];
        if ( nr_d )
            ++sol;
    }
    fout << sol << '\n';
    return 0;
}