Cod sursa(job #2797610)

Utilizator BlaugranasEnal Gemaledin Blaugranas Data 10 noiembrie 2021 12:02:33
Problema Pascal Scor 90
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.95 kb
#include<fstream>
using namespace std;
ifstream F("pascal.in");
ofstream G("pascal.out");
int p[3],r,d,s,i,j,k;
int main()
{
    F>>r>>d;
    if(d==2)
		for(i=1;i<=r/2;++i) {
			for(j=r-i+1;j%2==0;++p[0],j/=2);
			for(k=i;k%2==0;--p[0],k/=2);
			s+=!!(p[0]);
		}
	else if(d==3)
		for(i=1;i<=r/2;++i) {
			for(j=r-i+1;j%3==0;++p[1],j/=3);
			for(k=i;k%3==0;--p[1],k/=3);
			s+=!!(p[1]);
		}
	else if(d==4)
		for(i=1;i<=r/2;++i) {
			for(j=r-i+1;j%2==0;++p[0],j/=2);
			for(k=i;k%2==0;--p[0],k/=2);
			s+=!!(p[0]>>1);
		}
	else if(d==5)
		for(i=1;i<=r/2;++i) {
			for(j=r-i+1;j%5==0;++p[2],j/=5);
			for(k=i;k%5==0;--p[2],k/=5);
			s+=!!(p[2]);
		}
	else if(d==6)
		for(i=1;i<=r/2;++i) {
			for(j=r-i+1;j%2==0;++p[0],j/=2);
			for(k=i;k%2==0;--p[0],k/=2);
			for(j=r-i+1;j%3==0;++p[1],j/=3);
			for(k=i;k%3==0;--p[1],k/=3);
			s+=!!p[0]&&!!p[1];
		}
    if(s&&!(r&1))
		s=(s<<1)-1;
	else
		s<<=1;
    G<<s;
    return 0;
}