Cod sursa(job #1372531)

Utilizator diib1023Cursi FTW diib1023 Data 4 martie 2015 14:01:24
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.87 kb
#include <iostream>
#include <fstream>

int v[5000001],c[5000001];

using namespace std;

int main()
{   ifstream in ("pascal.in");
    ofstream out ("pascal.out");

    int randuri,d,contor=0,i,randcurent=1;
    in >> randuri >> d;
    randuri++;
    v[1] = 1 ;
    c[1] = 1;
    int unde ;
    bool z = false ;
    while (randcurent <= randuri )
    {
        for (i=1;i<=randcurent;i++)
        {   if (z == false)
            c[i] = v[i-1] + v[i] ;
            //cout<<c[i]<<" ";
            else v[i] = c[i-1] + c[i] ;
        }
        //cout<<'\n';
        if (z== false) z = true ;
        else z = false ;
        randcurent++;
    }
        if (randuri%2 == 0)
for (i=1;i<=randuri;i++)
{
    if (v[i] % d == 0) contor++;
}
        else
for (i=1;i<=randuri;i++)
{
    if (c[i] % d == 0) contor++;
}

    out<<contor;

    return 0;
}