Cod sursa(job #2186783)
Utilizator | 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;
}