Cod sursa(job #1372565)

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

using namespace std;

int Cursi ;
int v[5000001],c[5000001];

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;
    bool z = false ;

//Alg
    while (randcurent <= randuri )
    {
        for (i=1;i<=randcurent;i++)
        {   if (z == false) c[i] = v[i-1] + v[i] ;

            else v[i] = c[i-1] + c[i] ;
        }

        if (z== false) z = true ;
        else z = false ;

        randcurent++;
    }

//Alegere vector
        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 Cursi;
}