Cod sursa(job #2508112)

Utilizator hutanuHutanu Andrei hutanu Data 11 decembrie 2019 16:16:32
Problema Pascal Scor 40
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.62 kb
#include <bits/stdc++.h>

using namespace std;

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

int r,d,m[2][5000005],linia=1,i,nr;

int main()
{
    fin>>r>>d;
    m[0][0]=1;
    while(linia <= r)
    {
        i=0;
        while(i <= linia)
        {
            if(i == 0)
                m[1][i]=m[0][i];
            else
                m[1][i]=(m[0][i]+ m[0][i-1])%d;
            i++;
        }
        for(i=0; i <= linia; i++)
            m[0][i]=m[1][i];
        linia++;
    }
    for(i=0; i<linia; i++)
        if(m[0][i] == 0)
            nr++;
    fout<<nr;
    return 0;
}