Cod sursa(job #1929961)

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

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

long int factorial(int n){
  int P=1;
  if(n==0){
    return 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;

}