Cod sursa(job #2188311)
Utilizator | Data | 27 martie 2018 08:47:20 | |
---|---|---|---|
Problema | Pascal | Scor | 0 |
Compilator | c | Status | done |
Runda | Arhiva de probleme | Marime | 0.5 kb |
#include<stdio.h>
#define FOR(i, a, b) for(i = a; i <= b; i++)
#define NR 5000000
int l, d;
long A[NR];
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] =A[i] * ((l + 1)/ 2 - 1)/ i;
{
if(A[i] % d == 0)
nr = nr + 2;
}
}
printf("%d", nr);
return 0;
}