Cod sursa(job #1132881)

Utilizator visshanelAlin Florin visshanel Data 3 martie 2014 23:54:29
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include<fstream>

#define NMax 5000005

using std::ifstream;
using std::ofstream;

int main()
{
    int D,nr=0;
    long R,L1[NMax],L2[NMax];
    
    ifstream fin("pascal.in");
    ofstream fout("pacal.out");
    
    fin>>R>>D;
    
    L1[0]=L2[0]=1;
    for(long i=1;i<=R;i++)
    {
        for(long j=1;j<=i;j++)
            L2[j]=L1[j]+L1[j-1];

        for(long j=1;j<=i;j++)
            L1[j]=L2[j];   
    }
    
    for(long i=1;i<=R;i++)
        if(!(L2[i]%D))
            nr++;
    fout<<nr;
    
    fin.close();
    fout.close();
    
    return 0;
}