Cod sursa(job #1297102)

Utilizator ade_tomiEnache Adelina ade_tomi Data 21 decembrie 2014 18:06:03
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.76 kb
#include<stdio.h>
#define Nmax 5000005
int p2[Nmax],p3[Nmax],p5[Nmax],i,r,d,s2,s3,s5,sol;
int main()
{
    freopen("pascal.in","r",stdin);
    freopen("pascal.out","w",stdout);
    scanf("%d%d",&r,&d);
    for(i=1;i<=r;i++)
    {
        if(i%2==0)
            p2[i]=p2[i/2]+1;
        if(i%3==0)
            p3[i]=p3[i/3]+1;
        if(i%5==0)
            p5[i]=p5[i/5]+1;
    }

    for(i=1;i<=r;i++)
    {
        s2+=p2[r-i+1]-p2[i];
        s3+=p3[r-i+1]-p3[i];
        s5+=p5[r-i+1]-p5[i];
        if(d==2&&s2>0)
            sol++;
        if(d==3&&s3>0)
            sol++;

        if(d==5&&s5>0)
            sol++;
        if(d==4&&s2>1)
            sol++;
        if(d==6&&s2>0&&s3>0)
            sol++;
    }
    printf("%d",sol);
    return 0;

    return 0;

}