Cod sursa(job #34775)
| Utilizator | 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;
}
