Cod sursa(job #985004)

Utilizator enedumitruene dumitru enedumitru Data 16 august 2013 09:24:17
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 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%2==0)  k/=2, p[2]++;
        while(k%3==0)  k/=3, p[3]++;
        while(k%5==0)  k/=5, p[5]++;
        k=i;
        while(k%2==0)  k/=2, p[2]--;
        while(k%3==0)  k/=3, p[3]--;
        while(k%5==0)  k/=5, p[5]--;
        p[4]=p[2]/2;
        p[6]=(p[2]<p[3]?p[2]:p[3]);
        if(p[d]>0) nr+=2;
        if(p[d]>0 && i*2==r) nr--;
    }
    g<<nr<<"\n"; g.close(); return 0;
}