Cod sursa(job #2911226)

Utilizator MogoneaMIhneaMogonea Mihnea Mihai MogoneaMIhnea Data 27 iunie 2022 18:49:21
Problema Pascal Scor 20
Compilator cpp-64 Status done
Runda 3_iulie Marime 0.41 kb
#include<fstream>
using namespace std;
ifstream fin ("pascal.in");
ofstream fout ("pascal.out");
int R, D, aux, aux1, nr, i;
int prod(int x){
    int l;
    int s=1;
    for(l=2;l<=x;l++)
        s*=l;
        return s;
}
int main(){
    fin>>R>>D;
    for(i=0;i<=R;i++){
        aux1=R-i;
        aux=prod(R)/(prod(aux1)*prod(i));
        if(aux%D==0)
            nr++;
    }
    fout<<nr;
}