Cod sursa(job #1870431)

Utilizator usureluflorianUsurelu Florian-Robert usureluflorian Data 6 februarie 2017 17:23:24
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.24 kb
#include <fstream>
using namespace std;
ifstream f ("pascal.in");
ofstream g ("pascal.out");
int v[5000002],v2[5000002],r,d,sol,i,nr;
int main()
{
    f>>r>>d;
    if(d==2||d==3||d==5)
    {
        for(i=1;i<=r;i++)
        {
            nr=i;
            while(nr%d==0)
            {
                ++v[i];
                nr=nr/d;
            }
            v[i]=v[i]+v[i-1];
        }
    }
    else if(d==4)
    {
        for(i=1;i<=r;i++)
        {
            nr=i;
            while(nr%2==0)
            {
                ++v[i];
                nr=nr/2;
            }
            v[i]=v[i]+v[i-1];
        }
    }
    else
    {
        for(i=1;i<=r;i++)
        {
            nr=i;
            while(nr%2==0)
            {
                ++v[i];
                nr=nr/2;
            }
            while(nr%3==0)
            {
                ++v2[i];
                nr=nr/3;
            }
            v[i]=v[i]+v[i-1];
            v2[i]=v2[i]+v2[i-1];
        }
    }
    for(i=0;i<=r;i++)
    {
        if(d==6&&v[r]-v[r-i]-v[i]>0&&v2[r]-v2[r-i]-v2[i]>0) ++sol;
        if(d==4&&v[r]-v[r-i]-v[i]>1) ++sol;
        else if(d!=6&&d!=4&&v[r]-v[r-i]-v[i]>0) ++sol;
    }
    g<<sol;
    return 0;
}