Cod sursa(job #2564686)

Utilizator stefann29Cirja Stefan stefann29 Data 2 martie 2020 09:17:33
Problema Pascal Scor 20
Compilator cpp-32 Status done
Runda Arhiva de probleme Marime 0.46 kb
#include<bits/stdc++.h>
using namespace std;
int fact(int x)
{
    int p=1,i;
    if(x==0)
        return 1;
    else
    {
    for(i=1;i<=x;i++)
        p=p*i;
    return p;
    }
}
int main()
{
    ifstream f("pascal.in");
    ofstream g("pascal.out");
    int r,d,nr=0,j=0,rez;
    f>>r>>d;
    while(j!=r)
    {
        rez=fact(r)/((fact(r-j))*fact(j));
        if(rez%d==0)
            nr++;
        j++;
    }
    g<<nr;

return 0;

}