Pagini recente » Lista lu' Francu | Lista lu' Francu | Cod sursa (job #592422) | Cod sursa (job #1902706) | Cod sursa (job #557701)
Cod sursa(job #557701)
#include<stdio.h>
long long k,q,i,n,d,nr,a[100];
int main()
{
freopen("pascal.in","r",stdin);
freopen("pascal.out","w",stdout);
scanf("%ld%ld",&n,&d);
for(i=1;i<=n;i++)
{
q=n-i+1;
while(q%2==0)
{
a[2]++;
q/=2;
}
while(q%3==0)
{
a[3]++;
q/=3;
}
while(q%5==0)
{
a[5]++;
q/=5;
}
q=i;
while(q%2==0)
{
a[2]--;
q/=2;
}
while(q%3==0)
{
a[3]--;
q/=3;
}
while(q%5==0)
{
a[5]--;
q/=5;
}
if((d==2&&a[2])||(d==3&&a[3])||(d==4&&a[2]>1)||(d==5&&a[5])||(d==6&&a[2]&&a[3])) nr++;
}
printf("%lld\n",nr);
return 0;
}