Cod sursa(job #2952376)

Utilizator mrajecuCaplea Alexandru mrajecu Data 9 decembrie 2022 06:06:50
Problema Pascal Scor 10
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<stdio.h>
#include<fstream>
using namespace std;
int main()
{
	ifstream fin("pascal.in");
	ofstream fout("pascal.out");
    int elem[100],R,D,i,j,value=1,nr=0;
   	fin>>R;
   	fin>>D;
    for(j=1;j<=R-1;j++)
        {elem[j]=1;
        value=value*j;
        for(i=R-j+1;i<=R;i++)
            {
            elem[j]=elem[j]*i;
            }
        if(elem[j]!=0)
		{
        elem[j]=elem[j]/value;
        if(elem[j]%D==0)
            nr++;
		}}
    fout<<(R%2==0 ? (nr*2-1) :nr*2);
}