Cod sursa(job #2797621)

Utilizator BlaugranasEnal Gemaledin Blaugranas Data 10 noiembrie 2021 12:18:21
Problema Pascal Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.53 kb
#include<fstream>
using namespace std;
ifstream F("pascal.in");
ofstream G("pascal.out");
int n,d,s,e[7],i,x;
int main()
{
    for(F>>n>>d,i=1;i<=n/2;++i) {
        for(x=i;x%2==0;x/=2,--e[2]);
        for(;x%3==0;x/=3,--e[3]);
        for(;x%5==0;x/=5,--e[5]);
        for(x=n-i+1;x%2==0;x/=2,++e[2]);
        for(;x%3==0;x/=3,++e[3]);
        for(;x%5==0;x/=5,++e[5]);
        e[4]=e[2]/2,e[6]=min(e[2],e[3]);
        if(e[d]>0)
            s+=2;
    }
    if(n%2==0&&e[d]>0)
        --s;
    G<<s;
    return 0;
}