Cod sursa(job #2698809)

Utilizator toma_ariciuAriciu Toma toma_ariciu Data 23 ianuarie 2021 09:44:53
Problema Pascal Scor 40
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.67 kb
#include <fstream>

using namespace std;

ifstream fin("pascal.in");
ofstream fout("pascal.out");

const int kk=5000001;
int v[kk];

void init(int n, int d)
{
    for(int i=d; i<=n; i=i*d)
        for(int j=i; j<=n; j=j+i)
            v[j]++;
    for(int i=1; i<=n; i++)
    {
        // fout<<i<<' '<<v[i]<<' ';
        v[i]=v[i-1]+v[i];
        // fout<<v[i]<<'\n';
    }

}
int main()
{
    int n,d,c=0;
    fin>>n>>d;
    init(n, d);
    for(int i=0; i<=(n-1)/2; i++)
    {
        if(v[n]>(v[n-i]+v[i]))
            c=c+2;
    }
    if(n%2==0)
    {
        if(v[n]>(v[n/2]+v[n/2]))
            c++;
    }
    fout<<c;
    return 0;
}