Cod sursa(job #2108289)

Utilizator MihaelaCismaruMihaela Cismaru MihaelaCismaru Data 18 ianuarie 2018 02:18:43
Problema Pascal Scor 70
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.12 kb
#include<fstream>
using namespace std;
ifstream in ("pascal.in");
ofstream out ("pascal.out");
int k,d,fact[6],sol,y,i;
int vec[5000001][6];
int main (void) {
    in >> k >> d;
    i = k;
    for (int i = 1; i <= k; i ++) {
        if (i % 2 == 0) { vec[i][2] = vec[i/2][2] + 1; }
        if (i % 3 == 0) { vec[i][3] = vec[i/3][3] + 1; }
        if (i % 5 == 0) { vec[i][5] = vec[i/5][5] + 1; }
    }
    for (int j = 0; j <= k; j ++) {
        if (j > 0) {
            if (d == 4) {
                if (fact[2] > 1) {
                    sol ++;
                }
            }
            else
            if (d == 6) {
                if (fact[2] > 0 && fact[3] > 0) {
                    sol ++;

                }
            }
            else {
                if (fact[d] > 0) {
                    sol ++;

                }
            }
        }

        for (int h = 2; h <= 5; h ++) {
            if (h == 4) continue;
            y = j+1;
            fact[h] -= vec[y][h];
            y = i-j;
            fact[h] += vec[y][h];
        }
    }


    out << sol;
    return 0;
}