Cod sursa(job #2104717)

Utilizator laraamy16Cioc Amelia laraamy16 Data 12 ianuarie 2018 10:37:24
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include <fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
char v[5000001];
int r, d, nr = 0;
void afis(int n)
{
    for(int k = 1; k < n; k++)
        if(v[k] == 0) nr++;
    g << nr << '\n';
}
int main()
{
    f >> r >> d;
    v[0] = 1;
    for(int i = 1; i <= r; i++)
    {
        v[i] = 1;
        for(int k = i - 1; k >= 1; k--)
            v[k] = (v[k] + v[k - 1]) % d;
    }
    afis(r);
    return 0;
}