Cod sursa(job #734029)

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