Cod sursa(job #3251183)

Utilizator Panca_Eduard_GabrielPanca Eduard Gabriel Panca_Eduard_Gabriel Data 25 octombrie 2024 11:58:25
Problema Pascal Scor 20
Compilator cpp-64 Status done
Runda cex_1 Marime 0.37 kb
#include <bits/stdc++.h>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int fact(int n)
{
int s=1;
while ( n > 1 )
{
s=s*n;
n--;
}
return s;
}
int pascal(int n,int d)
{
int S=0;
for (int i=1; i<=n; i++ )
{
if ( (fact(n)/(fact(n-i)*fact(i))) % d == 0 ) S++;
}
return S;
}
int main()
{
    int r,d;
    fin>>r>>d;
    fout<<pascal(r,d);
    return 0;
}