Cod sursa(job #1720107)

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