Cod sursa(job #1759064)

Utilizator iulianrotaruRotaru Gheorghe-Iulian iulianrotaru Data 18 septembrie 2016 14:30:43
Problema Pascal Scor 50
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 r,d,i,k,nr,p[7];
int P[]={2,3,5};
inline void add(int val)
{
    for(int i=0;i<3;++i)
        while(k%P[i]==0) k/=P[i],p[P[i]]+=val;
}
int main()
{
    f>>r>>d;
    for(i=1;i<=(r>>1);++i)
    {   k=r-i+1;
        add(1);
        k=i;
        add(-1);
        p[4]=p[2]>>1;
        p[6]=min(p[2],p[3]);
        if(p[d]>0) nr=nr+2-((i<<1)==r);
    }
    g<<nr;
    return 0;
}