Cod sursa(job #1132872)

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

#define NMax 5000000

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

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

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