Cod sursa(job #402017)

Utilizator andreea1coolBobu Andreea andreea1cool Data 23 februarie 2010 12:33:18
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include<stdio.h>
int main()
{
freopen("pascal.in","r",stdin);
freopen("pascal.out","w",stdout);
long int n,i,d,j,k,c,fact1=1,p,fact2=1,fact3=1,v[1000],nr=0;
scanf("%ld%ld",&n,&d);
for(i=1;i<=n;i++)
	{
	   fact1=fact1*i;
	}
   for(j=0;j<=n;j++)		
   {
	 p=n-j;
	   if(p==0)
	    {
			fact2=1;
		}else
		{
			 for(i=1;i<=p;i++)
			 {
				 fact2=fact2*i;
			 }
		}
	 for(i=1;i<=j;i++)
		 {
			 fact3=fact3*i;
		 }
		 v[j+1]=fact1/(fact2*fact3);
	}
	   for(i=1;i<=n;i++)
	   {
		   if(v[i]%d==0)
		   {
			   nr++;
		   }
	   }
	   printf("%ld",nr);
	   return 0;
}