Cod sursa(job #2270229)

Utilizator darisavuSavu Daria darisavu Data 27 octombrie 2018 10:10:55
Problema Pascal Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.6 kb
#include <fstream>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int v2[5000005],v3[5000005],v5[5000005],r,d,p2,p3,p5,i,s;
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=p2+v2[r-i+1]-v2[i];
    p3=p3+v3[r-i+1]-v3[i];
    p5=p5+v5[r-i+1]-v5[i];
    if(d==2&&p2>0) s++;
    if(d==3&&p3>0) s++;
    if(d==4&&p2>1) s++;
    if(d==5&&p5>0) s++;
    if(d==6&&p2>0&&p3>0) s++;
    }
    g<<s;
    return 0;
}