Cod sursa(job #173902)
Utilizator | Data | 8 aprilie 2008 11:51:26 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.36 kb |
#include <stdio.h>
long r,d,i,j,dv[5000000],m[3000],fi=1,nr,s;
int main()
{
freopen ("pascal.in","r",stdin);
freopen ("pascal.out","w",stdout);
scanf("%ld %ld",&r,&d);
for(i=1;i<=r;i++){fi*=i;dv[i]=fi;}
for (j=1;j<r;++j){
nr=fi/(dv[r-j]*dv[j]);
if(nr%d==0)s++;
}
printf("%ld",s);
return 0;
}