Cod sursa(job #2070458)

Utilizator dragos1234Muresan Dragos dragos1234 Data 19 noiembrie 2017 16:15:52
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream in("pascal.in");
ofstream out("pascal.out");
int fact(int n)
{
      if(n>0)
      {
            return n*fact(n-1);
      }
      else return 1;
}
int main()
{
    int r,d;
    in>>r>>d;
    int b[100];
    int cont=0;
    for(int i=1;i<r;i++)
    {
          int h=fact(r);
          int c=fact(r-i)*fact(i);
          b[i]=h/c;
          if(b[i]%d==0) cont++;
    }
    out<<cont;
    return 0;
}