Cod sursa(job #723489)

Utilizator misinoonisim necula misino Data 25 martie 2012 15:14:20
Problema Pascal Scor 90
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include<fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int k,i,r,n,d,nr,x,v[6];
int main()
{f>>r>>d;
n=r;
k=r/2;
for(i=1;i<=k;++i)
{x=n;
while(!(x%2))
{x/=2;
++v[2];
}
x=n;
while(!(x%3))
{x/=3;
++v[3];
}
x=n;
while(!(x%5))
{x/=5;
--v[5];
}
x=i;
while(!(x%2))
{x/=2;
--v[2];
}
x=i;
while(!(x%3))
{x/=3;
--v[3];
}
x=i;
while(!(x%5))
{x/=5;
--v[5];
}
if((d==6&&v[2]>0&&v[3]>0)||(d==4&&v[2]>1)||v[d]>0)
	nr+=2;
--n;
}
if(((d==6&&v[2]>0&&v[3]>0)||(d==4&&v[2]>1)||v[d]>0)&&r%2==0)
	--nr;
g<<nr<<'\n';
f.close();
g.close();
return 0;
}