Cod sursa(job #708068)

Utilizator gyeresihunorGyeresi Hunor gyeresihunor Data 6 martie 2012 13:08:51
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
#include "stdio.h"

long long k;
long long d;
long long i;
long long m=1;
long long nr=0;
int main()
{
	freopen("pascal.in","r",stdin);
	freopen("pascal.out","w",stdout);
	scanf("%lld%lld",&k,&d);
	for(i=1;i<k;i++)
	{
		m*=(k-i+1);
		m/=i;
		if(m%d==0&&m>0)
			nr+=1;
	}
	printf("%lld\n",nr);
	return 0;
}