Cod sursa(job #1309292)

Utilizator cristian.caldareaCaldarea Cristian Daniel cristian.caldarea Data 5 ianuarie 2015 17:04:22
Problema Pascal Scor 90
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.93 kb
#include <iostream>
#include <fstream>
using namespace std;

ifstream fin("pascal.in");
ofstream fout("pascal.out");

const int Dim = 5000001;

int r, d, s2, s3, s5, nr;
int x2[Dim], x3[Dim], x5[Dim];


int main()
{
    fin >> r >> d;
    for ( int i = 1; i <= r; ++i)
    {


        if ( i % 2 == 0)
            x2[i] = x2[i/2] + 1;

        if ( i % 3 == 0)
            x3[i] = x3[i/3] + 1;

        if ( i % 5 == 0)
            x5[i] = x5[i/5] + 1;

    }
    for ( int i = 1; i <= r; ++i)
    {
        s2 += x2[r-i+1] - x2[i];
        s3 += x3[r-i+1] - x3[i];
        s5 |= x5[r-i+1] - x5[i];

        if ( d == 2 && s2 >= 1 )
            nr++;

        if( d == 3 && s3 >= 1)
            nr++;

        if( d == 5 && s5 >= 1)
            nr++;

        if( d == 4 && s2 >= 2)
            nr++;

        if( d == 6 && s2 >= 1 && s3 >= 1)
            nr++;
    }
    fout << nr;
    return 0;
}