Cod sursa(job #2180161)

Utilizator bebeetarepredescu bebeetare Data 20 martie 2018 17:46:41
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.87 kb
#include <fstream>

using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int a[5000002],b[5000002],c[5000002],r,d,i;
int p1,p2,p3,x;
int main()
{

    f>>r>>d;
    for(i=2;i<=r;i+=2)
    {
        a[i]=a[i]+a[i/2]+1;
    }
    for(i=3;i<=r;i+=3)
    {
        b[i]=b[i]+b[i/3]+1;
    }
    for(i=5;i<=r;i+=5)
    {
        c[i]=c[i]+c[i/5]+1;
    }
    for(i=1;i<=r;i++)
    {

        p1=p1+a[ r-i+1]-a[i];
        p2=p2+b[r-i+1]-b[i];
        p3=p3+c[r-i+1]-c[i];
        if(d==2 && p1>0)
        {
            x++;
        }
        if(d==3 && p2>0)
        {
            x++;
        }
        if(d==4 && p1>1)
        {
            x++;
        }
        if(d==5 && p3>0)
        {
            x++;
        }
        if(d==6 && p1>0 && p2>0)
        {
            x++;
        }
    }
    g<<x<<'\n';
    return 0;
}