Cod sursa(job #1720108)

Utilizator RaduMirceaAndreiRadu Mircea Andrei RaduMirceaAndrei Data 21 iunie 2016 14:12:20
Problema Pascal Scor 10
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,i,c,d,e,nr;
int main () {
    fin>>n>>d;
    c=d;
    if(d==4)
        c=2;
    if(d==6)
        c=3;
    for(i=1;i<=n+1;i++){
        e=c;
        while(e<=i){
            v[i]+=i/e;
            e*=c;
        }
    }
    for(i=1;i<=n+1;i++){
        if(d==4){
            if(v[n+1]>v[i]+v[n-i]+1)
                nr++;
            continue;
        }
        if(v[n+1]>v[i]+v[n-i])
            nr++;
    }
    fout<<nr<<"\n";
    return 0;
}