Cod sursa(job #324344)

Utilizator doru.nituNitu Doru Constantin doru.nitu Data 15 iunie 2009 20:17:42
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include<stdio.h>

int a[5000001],i,r,d;
long long nr;

int cat( int x)
{   int k=0;
    while(x)  k+=x/d, x/=d;
    return k;
}    

int main()
{ 
  freopen("pascal.in","r",stdin);
  freopen("pascal.out","w",stdout);
  
  scanf("%d %d",&r,&d);
  if(r==0) { printf("0\n");
             fclose(stdin);
             fclose(stdout);
             return 0;
           }  
  
  for(i=2;i<=r;i++){  a[i]=cat(i);
                       
                   }
for(i=r/2;i>=1;--i)   if((a[r]-(a[r-i]+a[i]))>0) nr++;                         

if(r%2==0) printf("%lld\n",2*nr-1);
else printf("%lld\n",2*nr);

fclose(stdin);
fclose(stdout);

return 0;
}