Cod sursa(job #892970)

Utilizator LidiadobreaDobrea Lidia Ioana Lidiadobrea 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;
}