Cod sursa(job #2270220)

Utilizator nerelog25Radu Andrei Stefan nerelog25 Data 27 octombrie 2018 10:09:49
Problema Pascal Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.58 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream f("pascal.in");
ofstream g("pascal.out");
int r   ,d,i,v2[5000020],v3[5000020],v5[5000020],p2,p3,p5,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+=v2[r-i+1]-v2[i];
    p3+=v3[r-i+1]-v3[i];
    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;
}