Cod sursa(job #734012)

Utilizator misinoonisim necula misino Data 13 aprilie 2012 13:22:35
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.64 kb
#include<fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int v1,d,v2,nr5,nr2,nr3,nr,i,r,n;
void fact()
{while(v1%2==0)
{v1/=2;
++nr2;
}
while(v1%3==0)
{v1/=3;
++nr3;
}
while(v1%5==0)
{v1/=5;
++nr5;
}
while(21%2==0)
{v2/=2;
--nr2;
}
while(v2%3==0)
{v2/=3;
--nr3;
}
while(v2%5==0)
{v2/=5;
--nr5;
}}
int main()
{f>>n>>d;
r=n;
for(i=1;i<=r/2;++i,--n)
{v1=n;
v2=i;
fact();
if((d==6&&nr2>0&&nr3>0)||(d==4&&nr2>1)||(d==2||nr2>0)||(d==3&&nr3>0)||(d==5&&nr5>0))
	nr+=2;
}
if(r%2==0&&((d==6&&nr2>0&&nr3>0)||(d==4&&nr2>1)||(d==2||nr2>0)||(d==3&&nr3>0)||(d==5&&nr5>0)))
	--nr;
g<<nr;
return 0;
}