Cod sursa(job #1926829)

Utilizator GoogalAbabei Daniel Googal Data 14 martie 2017 18:33:00
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.82 kb
#include <fstream>
#define nm 5000005

using namespace std;

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

int a[nm],b[nm],c[nm],n,d,s1,s2,s3,rez;
int main()
{
    int i;

    fin>>n>>d;
    fin.close();

    for(i=1; i<=n; i++)
    {
        if(i%2==0)
            a[i]=a[i/2]+1;
        if(i%3==0)
            b[i]=b[i/3]+1;
        if(i%5==0)
            c[i]=c[i/5]+1;
    }

    for(i=1; i<=n; i++)
    {
        s1+=a[n-i+1]-a[i];
        s2+=b[n-i+1]-b[i];
        s3+=c[n-i+1]-c[i];

        if(d==2 && s1>0)
            rez++;
        if(d==3 && s2>0)
            rez++;
        if(d==5 && s3>0)
            rez++;
        if(d==4 && s1>1)
            rez++;
        if(d==6 && s1>0 && s2>0)
            rez++;
    }
    fout<<rez<<'\n';
    fout.close();
    return 0;
}