Cod sursa(job #402691)

Utilizator andreea1coolBobu Andreea andreea1cool Data 24 februarie 2010 08:25:09
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<stdio.h>
#include<math.h>
   long int functie(long int n,long int p)
{
	long int s=0;
	long int 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 int r,j,n,k1=0,k2=0,k3=0,d,p,c=0,i,q,s,t;
    scanf("%ld%ld",&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("%ld",c);
return 0;
}