Cod sursa(job #239904)

Utilizator DraStiKDragos Oprica DraStiK Data 6 ianuarie 2009 09:02:13
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.69 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/2; ++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+=2;
    }
    if (!(r%2))
    {
        for (aux=r, nr1=0; aux; nr1+=aux/=d);
        for(aux=r-r/2+1, nr2=0; aux; nr2+=aux/=d);
        for(aux=r/2-1, nr3=0; aux; nr3+=aux/=d);
        if(nr1>nr2+nr3)
            nrt++;
    }
    printf ("%d",nrt);
    return 0;  
}