Cod sursa(job #2270219)

Utilizator MDiana15Diana M MDiana15 Data 27 octombrie 2018 10:09:42
Problema Pascal Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.63 kb
#include <fstream>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int r,d,i,v2[5000005],v3[5000005],v5[5000005],p2,p3,p5,sl;
int main()
{
    f>>r>>d;
    for(i=1;i<=r;i++)
    {
        if(i%2==0)v2[i]=1+v2[i/2];
        if(i%3==0)v3[i]=1+v3[i/3];
        if(i%5==0)v5[i]=1+v5[i/5];
    }
    for(i=1;i<r;i++)
    {
        p2+=v2[r-i+1]-v2[i];
        p3+=v3[r-i+1]-v3[i];
        p5+=v5[r-i+1]-v5[i];
        if(d==2&&p2>0)sl++;
        if(d==3&&p3>0)sl++;
        if(d==4&&p2>1)sl++;
        if(d==5&&p5>0)sl++;
        if(d==6&&p2>0&&p3>0)sl++;

    }
    g<<sl;
    return 0;
}