Cod sursa(job #1189448)

Utilizator ionut98Bejenariu Ionut Daniel ionut98 Data 22 mai 2014 21:13:41
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.74 kb
#include<fstream>
using namespace std;

int i,j,n,a[7],ic,sf,d,r,nr;
void desc()
{
    while(ic%2==0)
    a[2]++,ic/=2;
    while(ic%3==0)
    a[3]++,ic/=3;
    while(ic%5==0)
    a[5]++,ic/=5;
    while(sf%2==0)
    a[2]--,sf/=2;
    while(sf%3==0)
    a[3]--,sf/=3;
    while(sf%5==0)
    a[5]--,sf/=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;
    r=n;
    for(i=1;i<=r/2;++i,n--)
    {
        ic=n;
        sf=i;
        desc();
        if(div())
        nr+=2;
    }
    if(r%2==0&&div())
    nr--;
    g<<nr;
    return 0;
}