Cod sursa(job #1870415)

Utilizator usureluflorianUsurelu Florian-Robert usureluflorian Data 6 februarie 2017 17:12:20
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include <fstream>
using namespace std;
ifstream f ("pascal.in");
ofstream g ("pascal.out");
int v[5000002],r,d,sol,i,nr,ok,doi,trei;;
int main()
{
    f>>r>>d;
    for(i=1;i<=r;++i)
    {
        {
            nr=i;
            while(nr%d==0)
            {
                ++v[i];
                nr=nr/d;
            }
            v[i]+=v[i-1];
        }
    }
    for(i=0;i<=r/2;++i)
    {
        if(v[r]-v[r-i]-v[i]>0) sol=sol+2;
    }
    if(r%2==0&&v[r]-v[r-r/2]-v[r/2]>0) --sol;
    g<<sol;
    return 0;
}