Cod sursa(job #843970)

Utilizator Pop_EmilPal Tamas Pop_Emil Data 28 decembrie 2012 17:36:13
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb

#include <stdio.h>

using namespace std;

FILE *in=fopen("pascal.in","r"),*out=fopen("pascal.out","w");
int I,D,RESULT=0;

long long fact(int arg)
{
   if(arg==0)return 1;
   else
   {
    long long result=1;
    for(int i=2;i<=arg;i++)
      result*=i;
   return result;
   }
}
bool divisible(int arg, int d)
{
    if( arg % d == 0 )return true;
    else return false;


}

int main()
{

fscanf(in,"%d",&I);
fscanf(in,"%d",&D);

 for(int j=0;j<=I/2+1;j++)
   if(divisible( fact(I)/( fact(I-j)*fact(j) ),D ) )RESULT++;


 fprintf(out,"%d",RESULT);
fclose(in);
fclose(out);

}