Cod sursa(job #2610338)

Utilizator Rares31100Popa Rares Rares31100 Data 4 mai 2020 19:03:23
Problema Pascal Scor 40
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.57 kb
#include <bits/stdc++.h>

using namespace std;

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

int n,k;
int nrDiv[5000001];
int d1,d2,Up;
int suma;

int main()
{
    in>>n>>k;

    for(int r=k; r<=n; r*=k)
        for(int l=r; l<=n; l+=r)
            nrDiv[l]++;

    for(int i=1; i<=n; i++)
        Up+=nrDiv[i];
    d2=Up;

    for(int i=1; i<=n/2; i++)
    {
        d1+=nrDiv[i];
        d2-=nrDiv[n-i+1];

        if(d1+d2!=Up)
            suma+=2;
    }

    if(n%2==0 && d1+d2!=Up)
        suma--;

    out<<suma;

    return 0;
}