Cod sursa(job #3155829)

Utilizator BurloiEmilAndreiBurloi Emil Andrei BurloiEmilAndrei Data 9 octombrie 2023 20:30:28
Problema Pascal Scor 0
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.82 kb
#include <bits/stdc++.h>
using namespace std;

ifstream fin("pascal.in");
ofstream fout("pascal.out");

const int MAXR = 5e6;

int primeNums[3] = {2, 3, 5}, ans[3][MAXR + 5];

int main() {
    int r, d, num, copR, cnt, i, rasp;

    fin >> r >> d;

    for (num = 0; num < 3; num++) {
        for (i = primeNums[num]; i <= r; i += primeNums[num]) {
            ans[num][i] = ans[num][i / primeNums[num]] + 1;
        }

        for (i = primeNums[num]; i <= r; i++) {  // Insumam
            ans[num][i] += ans[num][i - 1];
        }
    }

    rasp = 0;
    for (i = 0; i <= r; i++) {
        for (num = 0; num < 3; num++) {
            if(ans[num][r] > ans[num][r - i] + ans[num][i]) {
                ++rasp;
                break;
            }
        }
    }

    fout << rasp;
    return 0;
}