Cod sursa(job #2188305)

Utilizator madalina.sassss madalina. Data 27 martie 2018 08:39:55
Problema Pascal Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.65 kb
#include<stdio.h>
#define FOR(i, a, b) for(i = a; i <= b; i++)
#define NR  5000000
int  l, d;
long A[NR];
long fact(int l)
{
          int j;
          long fact = 1;

          FOR(j, 1, l)
          fact = fact * j;
          return fact;
}
int main()
{
    int  i, nr =0;

    freopen("pascal.in",  "r", stdin);
    freopen("pascal.out",  "w", stdout);

    scanf("%d %d", &l, &d);
    FOR(i, 1, (l + 1)/ 2)
    {
        if(fact(l - i)* fact(i)> 0)
            A[i] =fact(l)/ (fact(l - i)* fact(i));
        {
            if(A[i] % d == 0)
                nr = nr + 2;
        }
    }
    printf("%d", nr);
    return 0;
}