Cod sursa(job #827324)

Utilizator a_h1926Heidelbacher Andrei a_h1926 Data 1 decembrie 2012 22:59:31
Problema Pascal Scor 50
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.91 kb
#include <cstdio>

using namespace std;

int Row, Factor[3] = {2, 3, 5}, DPower[3], Solution;

inline int GetPower(int X, int factor) {
    int power = 0;
    for (; X % factor == 0; ++power, X /= factor);
    return power;
}

void Solve() {
    int n = Row;
    int Pow[3] = {0, 0, 0};
    for (int k = 1; k <= n; ++k) {
        int divisible = 1;
        for (int i = 0; i < 3; ++i)
            divisible &= ((Pow[i] = Pow[i] + GetPower(n - k + 1, Factor[i]) - GetPower(k, Factor[i])) >= DPower[i]);
        Solution += divisible;
    }
}

void Read() {
    freopen("pascal.in", "r", stdin);
    int D; scanf("%d %d", &Row, &D);
    for (int i = 0; i < 3; ++i)
        for (; D % Factor[i] == 0; ++DPower[i], D /= Factor[i]);
}

void Print() {
    freopen("pascal.out", "w", stdout);
    printf("%d\n", Solution);
}

int main() {
    Read();
    Solve();
    Print();
    return 0;
}