Cod sursa(job #1607153)

Utilizator SabonarolaFeier Iulia Sabonarola Data 20 februarie 2016 21:11:14
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include <iostream>
#include <fstream>
using namespace std;

int element(int i,int R)
{ int p=1,p1=1;
  for(int k=1;k<=R-i;k++)
    p=p*k;
  for(int k=i+1;k<=R;k++)
    p1=p1*k;
  return p1/p;
}
int main()
{ ifstream fin("pascal.in");
  ofstream fout("pascal.out");

  int R,D,cont=0;
  fin>>R>>D;
  for(int i=0;i<=R;i++)
     if(element(i,R)%D==0)
       cont++;
  fout<<cont;
  fin.close();
  fout.close();
  return 0;
}