Cod sursa(job #2186803)

Utilizator madalina.sassss madalina. Data 25 martie 2018 22:54:26
Problema Pascal Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.85 kb
#include<stdio.h>
#define FOR(i, a, b) for(i = a; i <= b; i++)
#define NR  5000
int  l, d;
 int A[NR][NR];
 int C(int l, int d, int *nr)
 {
         int i, j, ifact, fact, jfact;
          A[0][1] = 1;
         FOR(i, 1, l)
                   FOR(j, 1, l + 1)
                   {
                             ifact =  i*(i + 1)/ 2;
                             fact = (i - j)*(i - j + 1)/ 2;
                             jfact =  j*(j + 1)/ 2;

                             A[i][j] = ifact / (fact * jfact) ; }
         FOR(j, 1, l + 1)
         if(A[l][j] % d == 0)(*nr) ++;
         return (*nr);
 }
int main()
{
         int  * nr;

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

         scanf("%d %d", &l, &d);
          C(l, d, nr);
         printf("%d", nr);
         return 0;

}