Cod sursa(job #1929954)

Utilizator DjpaulmcIonescu Andrei Paul Djpaulmc Data 18 martie 2017 12:52:30
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.58 kb
#include <iostream>
#include <fstream>

using namespace std;
ifstream fin ("pascal.in");
ofstream fout( "pascal.out");
int i,j,D,k=0,Nr;
long long int R;

int factorial(int n){
  int P=1;
    for(int o=1;o<=n;o++){
        P=P*o;
    }

return P;
}
int main()
{
    fin>>R>>D;
    fin.close();
    for(i=R;i<=R;i++){
        for(j=0;j<i+1;j++){
                Nr=factorial(i)/(factorial(i-j)*factorial(j));
                if(Nr%D==0){
                    k++;
                }


        }
        fout<<k;
        fout.close();

    }

    return 0;

}