Cod sursa(job #34775)

Utilizator pocaituDavid si Goliat pocaitu Data 21 martie 2007 13:19:47
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<stdio.h>
long n,i,d1,d2,c,nr,k;
int d;
long cmmdc(long a,long b)
{if(!b) return a;
 else
   return cmmdc(b,a%b);
 }

int main()
{freopen("pascal.in","r",stdin);
 scanf("%ld%ld",&n,&d);
 
 for(i=1;i<n;i++)
   {//c=cmmdc(n-i+1,i);
	d1=(n-i+1);
	d2=i;
	if(!(d1%d))
	  while(!(d1%d))
		{d1/=d;
		 nr++;
		 }
	if(!(d2%d))
	  while(!(d2%d))
		{d2/=d;
		 nr--;
		 }
	if(nr>0)
	  k++;
	}
  freopen("pascal.out","w",stdout);
  printf("%ld",k);
  fclose(stdout);
  return 0;
  }