Cod sursa(job #58472)

Utilizator DastasIonescu Vlad Dastas Data 5 mai 2007 22:39:21
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.7 kb
#include <cstdio>
#define max 5000001

FILE *in = fopen("pascal.in","r"), *out = fopen("pascal.out","w");

int r, d;
int a[max];

int putere(int n, int p)
{
    int cnt = 0;

    while ( n )
    {
        ++cnt;
        n /= p;
    }

    return cnt;
}

int main()
{
    fscanf(in, "%d %d", &r, &d);

    ++r;
    int cnt = 0;

    for ( int i = 1; i <= r; ++i )
    {
        int t = 0, p = 0;
        t = putere((r-i),d);
        p = putere(i, d);

        a[i] = (a[i-1] + t - p);
        if ( a[i] > 0 )
            ++cnt;
    }
//
//    for ( int i = 1; i <= r; ++i )
//        printf("%d ", a[i]);
//    printf("\n");

    fprintf(out, "%d\n", cnt);

    return 0;
}