Cod sursa(job #856861)

Utilizator ncbllrNegrii Costin ncbllr Data 17 ianuarie 2013 00:12:56
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.63 kb
#include<fstream>
using namespace std;
     ifstream f("pascal.in");
     ofstream g("pascal.out");
         int n,i,j,r,a[2000000],d,s;

          int fact(int p)
          { 
          if(p==1)
          return 1;
          return p*fact(p-1);
          }
          
int main()
{
    f>>r;
    f>>d;
    n=fact(r);
    s=0;
    for(i=0;i<=r/2;i++)
                       { 
                       j= fact(r-i);
                       j= j*fact(i); 
                       a[i]= n/j;
                       if( a[i] % d == 0) s++;
                       }
    s=s*2;
    if(r%2==0) s--;
    g<<s;
    return 0;
}