Cod sursa(job #3187326)

Utilizator Padurariu_RiccardoPadurariu Riccardo Padurariu_Riccardo Data 28 decembrie 2023 14:23:51
Problema Pascal Scor 30
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.46 kb
#include <iostream>
#include <fstream>
using namespace std;

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

int main()
{
    int a[1001][1001],R,D,i,j,c=0;
    fin >> R >> D;
    for(i=1;i<=R+1;i++){
        a[i][1] = 1;
        a[i][i] = 1;
    }
    for(i=1;i<=R+1;i++)
        for(j=1;j<i;j++)
            a[i][j] = a[i-1][j] + a[i-1][j-1];
    for(i=2;i<=R;i++)
        if(a[R+1][i]%D==0)
            c++;
    fout << c;
    return 0;
}