Cod sursa(job #1759076)

Utilizator iulianrotaruRotaru Gheorghe-Iulian iulianrotaru Data 18 septembrie 2016 14:50:13
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb
#include <fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int r,d,i,k,nr,p[7];
int main()
{   f>>r>>d;
    for(i=1;i<=r/2;++i)
    {   k=r-i+1;
        while(!(k&1))  k>>=1, p[2]++;
        while(k%3==0)  k/=3, p[3]++;
        while(k%5==0)  k/=5, p[5]++;
        k=i;
        while(!(k&1))  k>>=1, p[2]--;
        while(k%3==0)  k/=3, p[3]--;
        while(k%5==0)  k/=5, p[5]--;
        p[4]=p[2]>>1;
        p[6]=min(p[2],p[3]);
        if(p[d]>0) nr+=2;
        if(p[d]>0&&i*2==r) nr--;
    }
    g<<nr;
    return 0;
}