Cod sursa(job #1720119)

Utilizator RaduMirceaAndreiRadu Mircea Andrei RaduMirceaAndrei Data 21 iunie 2016 15:05:49
Problema Pascal Scor 50
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
# include <fstream>
# define DIM 5000010
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int v[DIM],n,i,j,c,d,nr;
int main () {
    fin>>n>>d;
    c=d;
    if(d==4)
        c=2;
    if(d==6)
        c=3;
    for(i=1;i<=n;i++){
        v[i]=v[i-1];
        j=i;
        while(j%c==0){
            v[i]++;
            j/=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;
}