Cod sursa(job #239903)

Utilizator DraStiKDragos Oprica DraStiK Data 6 ianuarie 2009 08:56:09
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.47 kb
#include <algorithm>
using namespace std;
int r,d,nrt;
int main ()
{
    freopen ("pascal.in","r",stdin);
    freopen ("pascal.out","w",stdout);    
    int i,aux,nr1,nr2,nr3;
    scanf ("%d%d",&r,&d);
    for (i=0; i<r; ++i)
    {
        for (aux=r, nr1=0; aux; nr1+=aux/=d);
        for(aux=r-i, nr2=0; aux; nr2+=aux/=d);
        for(aux=i, nr3=0; aux; nr3+=aux/=d);
        if(nr1>nr2+nr3)
            ++nrt;
    }
    printf ("%d",nrt);
    return 0;  
}