Pagini recente » Borderou de evaluare (job #2279040) | Cod sursa (job #3231365) | Cod sursa (job #2941323) | Borderou de evaluare (job #2459033) | Cod sursa (job #774323)
Cod sursa(job #774323)
#include<stdio.h>
#include<math.h>
long int fact(long int r)
{
if (r==1 || r==0) return 1;
else return r*fact(r-1);
}
int main()
{
FILE *f=fopen("pascal.in","r"),*g=fopen("pascal.out","w");
long int r,nr=0,j,a;
int d;
fscanf(f,"%ld %d",&r,&d);
for(j=1;j<r;j++)
{
a=fact(r)/(fact(r-j)*fact(j));
if(a%d==0) nr++;
}
fprintf(g,"%ld",nr);
fclose(f);
fclose(g);
return 0;
}