Cod sursa(job #401757)

Utilizator andreea1coolBobu Andreea andreea1cool Data 23 februarie 2010 08:45:37
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 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;
        }