Cod sursa(job #2952378)

Utilizator mrajecuCaplea Alexandru mrajecu Data 9 decembrie 2022 06:15:01
Problema Pascal Scor 20
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.6 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;
   	if(R!=0)
	   {
	   	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;
		}}	
    for(j=1;j<=R/2;j++)
    {
       if(elem[j]%D==0)
		 nr++;
    }
    fout<<(R%2==0 ? (nr*2-1) :nr*2);
	   }
	   else
	   	fout<<'0';
    
}