Cod sursa(job #2154201)

Utilizator andreiutu111Noroc Andrei Mihail andreiutu111 Data 6 martie 2018 19:32:32
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<bits/stdc++.h>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int N,D,L0[5000001],L[5000001],nr;
int main()
{
    f>>N>>D;
    L0[0]=L0[1]=1;
    for(int i=2;i<=N;++i){
        L[i]=1;
        for(int j=1;j<i;++j)
            L[j]=L0[j-1]+L0[j];
        for(int j=1;j<=i;++j)L0[j]=L[j];
    }
    for(int i=1;i<N;++i)
        if(!(L0[i]%D))
            ++nr;
    return 0;
}