Cod sursa(job #2188169)
| Utilizator | Data | 26 martie 2018 23:07:32 | |
|---|---|---|---|
| Problema | Pascal | Scor | 0 |
| Compilator | c | Status | done |
| Runda | Arhiva de probleme | Marime | 0.44 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, 0, l + 1)
{
A[i] = 2 * l *(l + 1)/ (((l - i)*(l - i + 1))*(i *(i + 1)));
if(A[i] % d == 0)
nr++;
}
printf("%d", nr);
return 0;
}
