Cod sursa(job #401757)
Utilizator | 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;
}