Cod sursa(job #1087504)

Utilizator caen1c a e n caen1 Data 19 ianuarie 2014 15:09:52
Problema Pascal Scor 20
Compilator c Status done
Runda Arhiva de probleme Marime 0.44 kb
#include <stdio.h>

#define IN "pascal.in"
#define OUT "pascal.out"

int main(void)
{
        long r, d, i, n, rez;

        freopen(IN, "r", stdin);
        freopen(OUT, "w", stdout);

        scanf("%ld %ld", &r, &d);

        n = 1;
        rez = 0;
        for (i = 1; i <= r; i++) {
                n = n * (r + 1 - i) / i;
                if (n % d == 0)
                        ++rez;
        }

        printf("%ld\n", rez);

        return 0;
}