Cod sursa(job #864289)

Utilizator DaNutZ2UuUUBB Bora Dan DaNutZ2UuU Data 24 ianuarie 2013 20:42:41
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.72 kb
#include<fstream>
using namespace std;
int i,j,n,m,a[7],d,nr,x,y;
void desc(int x, int y)
{
    while(x%2==0)
    a[2]++,x/=2;
    while(x%3==0)
    a[3]++,x/=3;
    while(x%5==0)
    a[5]++,x/=5;
    while(y%2==0)
    a[2]--,y/=2;
    while(y%3==0)
    a[3]--,y/=3;
    while(y%5==0)
    a[5]--,y/=5;
}
int div()
{
    if(d==4&&a[2]>1)
    return 1;
    if(d==6&&a[2]>0&&a[3]>0)
    return 1;
    if(a[d]>0)
    return 1;
    return 0;
}
int main()
{
    ifstream f("pascal.in");
    ofstream g("pascal.out");
    f>>n>>d;
    m=n;
    for(i=1;i<=m/2;++i,n--)
    {
        desc(n,i);
        if(div())
        nr+=2;
    }
    if(m%2==0&&div())
       nr--;
       g<<nr<<"\n";
    return 0;
}