Cod sursa(job #401311)

Utilizator andreea1coolBobu Andreea andreea1cool Data 22 februarie 2010 19:02:02
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 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;
	 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;
        }