Cod sursa(job #1870418)

Utilizator usureluflorianUsurelu Florian-Robert usureluflorian Data 6 februarie 2017 17:13:18
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 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;++i)
    {
        if(v[r]-v[r-i]-v[i]>0) ++sol;
    }
    g<<sol;
    return 0;
}