Cod sursa(job #2186783)

Utilizator madalina.sassss madalina. Data 25 martie 2018 22:25:47
Problema Pascal Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.57 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 main(void)
{
         int i, j, nr = 0;

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

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

}