Cod sursa(job #2188159)

Utilizator madalina.sassss madalina. Data 26 martie 2018 22:55:39
Problema Pascal Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<stdio.h>
#define FOR(i, a, b) for(i = a; i <= b; i++)
#define NR  5000000
int  l, d;
int 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] = (l *(l + 1)/ 2)/ (((l - i)*(l - i + 1)/ 2)*(i *(i + 1)/ 2));
        if(A[i] % d == 0)
            nr++;
    }
    printf("%d", nr);
    return 0;
}