Cod sursa(job #2910669)

Utilizator rares89_Dumitriu Rares rares89_ Data 23 iunie 2022 18:24:23
Problema Pascal Scor 30
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.79 kb
#include <fstream>

using namespace std;

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

int r, d, p1[5000005], p2[5000005], n;

int main() {
    fin >> r >> d;
    if(r < 2) {
        fout << "0\n";
    } else {
        p1[0] = 1;
        for(int i = 1; i <= r; i++) {
            p2[n++] = 1;
            for(int j = 1; j < i; j++) {
                p2[n++] = p1[j - 1] + p1[j];
            }
            p2[n++] = 1;
            for(int j = 0; j < n; j++) {
                p1[j] = p2[j];
            }
            if(i != r) {
                n = 0;
            }
        }
        int cnt = 0;
        for(int i = 0; i < n; i++) {
            if(p2[i] % d == 0) {
                cnt++;
            }
        }
        fout << cnt;
    }
    return 0;
}