Cod sursa(job #866260)

Utilizator iuli33Iuliana iuli33 Data 27 ianuarie 2013 18:35:22
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include <iostream>
#include <fstream>
using namespace std;

 long numar (int i, int j){
  int x, elem=1;
  for (x=1; x<=i; x++){
    elem=elem*x;
  }
  for (x=1; x<=j; x++){
    elem=elem/x;
  }
  for (x=1; x<=(i-j); x++){
    elem=elem/x;
  }
  return elem;
}

int main(){
int i, j, d, r;
ifstream f("pascal.in");
ofstream g("pascal.out");
f>>r;
f>>d;
i=r;
r=0;
for (j=1; j<=i-1; j++){
    if ((numar(i,j))%d==0) r++;
}
g<<r;
f.close();
g.close();
return 0;
}