Cod sursa(job #866260)
Utilizator | 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;
}