Cod sursa(job #892970)
| Utilizator | Data | 26 februarie 2013 12:27:44 | |
|---|---|---|---|
| Problema | Pascal | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.47 kb |
#include <fstream>
using namespace std;
int factorial(int &x){
int a=1;
for(int i=2;i<=x;i++)
a=a*i;
return a;
}
int r,d,nr,i,elem,x;
int main(){
ifstream in("pascal.in");
ofstream out("pascal.out");
in>>r>>d;
for(i=1;i<=r;i++){
x=r-i;
elem=factorial(r);
elem=elem/
(factorial(x)
*factorial(i));
if(elem%d==0)
nr++;
}
out<<nr;
in.close();
out.close();
return 0;
}
