Cod sursa(job #194887)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 14 iunie 2008 23:56:11
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.76 kb
#include<stdio.h>

int n,k,p[100],sol=0,d;

void pascal1()
{int x;

x=n-k;
while (x%2==0)
	       x/=2,
	       p[2]++;
while (x%3==0)
	       x/=3,
	       p[3]++;
while (x%5==0)
	       x/=5,
	       p[5]++;

x=k+1;
while (x%2==0)
	       x/=2,
	       p[2]--;
while (x%3==0)
	       x/=3,
	       p[3]--;
while (x%5==0)
	       x/=5,
	       p[5]--;

if (d==2) sol+=(p[2]>=1);
   if (d==3) sol+=(p[3]>=1);
      if (d==4) sol+=(p[2]>=2);
	 if (d==5) sol+=(p[5]>=1);
	    if (d==6) sol+=(p[2]>=1 && p[3]>=1);
}

int main()
{int i;
freopen("pascal.in","rt",stdin);
freopen("pascal.out","wt",stdout);
scanf("%d %d", &n, &d);
i=0;
while (i<=((n+1)/2-1))
{
pascal1();
i++;
}
sol*=2;
pascal1;
printf("%d",sol-1);
return 0;}