Cod sursa(job #1720011)

Utilizator RaduMirceaAndreiRadu Mircea Andrei RaduMirceaAndrei Data 20 iunie 2016 21:54:02
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
# include <fstream>
# define DIM 5000010
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int v[DIM],n,d,d1,i,p,nr;
int main () {
    fin>>n>>d;
    d1=d;
    if(d==4)
        d1=2;
    if(d==6)
        d1=3;
    for(i=0;i<=n;i++){
        p=d1;
        while(p<=i){
            v[i]+=i/p;
            p*=d1;
        }
    }
    for(i=0;i<=n;i++){
        if(d==4){
            if(v[n]/2>(v[i]+v[n-i])/2)
                nr++;
            continue;
        }
        if(v[n]>v[i]+v[n-i])
            nr++;
    }
    fout<<nr<<"\n";
    return 0;
}