Cod sursa(job #402692)

Utilizator andreea1coolBobu Andreea andreea1cool Data 24 februarie 2010 08:26:49
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include<stdio.h>
#include<math.h>
   long long functie(long long n,long long p)
{
	long long s=0;
	long long i=1;
	for(p;p<=n;p=p*i){
		s=s+n/p;
		i++;
	}
	return s;
}
int main()
{
    freopen("pascal.in","r",stdin);
    freopen("pascal.out","w",stdout);
    long long r,j,n,k1=0,k2=0,k3=0,d,p,c=0,i,q,s,t;
    scanf("%lld%lld",&r,&d);
    k1=functie(r,d);
	for(j=0;j<=r;j++){
		p=r-j;
	    k2=functie(p,d);
		k3=functie(j,d);
	if(k1-k2-k3>0){
		c++;
		
	}
	k2=0;
	k3=0;
	
	
}
printf("%lld",c);
return 0;
}