Cod sursa(job #2911045)

Utilizator AlexSerban21Serban Alexandru AlexSerban21 Data 26 iunie 2022 15:34:01
Problema Pascal Scor 100
Compilator cpp-64 Status done
Runda 3_iulie Marime 0.78 kb
#include <fstream>
using namespace std;
ifstream fin ("pascal.in");
ofstream fout ("pascal.out");
int n,d,i,k,a2,a3,a5;
int d2[5000002],d3[5000002],d5[5000002];
int main ()
{
    fin>>n>>d;
    for (i=2; i<=n; i++)
    {
        if (i%2==0)
            d2[i]=1+d2[i/2];
        if (i%3==0)
            d3[i]=1+d3[i/3];
        if (i%5==0)
            d5[i]=1+d5[i/5];
    }
    for (i=1; i<=n; i++)
    {
        a2=a2+d2[n-i+1]-d2[i];
        a3=a3+d3[n-i+1]-d3[i];
        a5=a5+d5[n-i+1]-d5[i];
        if (d==2&&a2>0)
            k++;
        else if (d==3&&a3>0)
            k++;
        else if (d==4&&a2>1)
            k++;
        else if (d==5&&a5>0)
            k++;
        else if (d==6&&a2>0&&a3>0)
            k++;
    }
    fout<<k;
    return 0;
}