Cod sursa(job #1337669)

Utilizator ASTELOTudor Enescu ASTELO Data 9 februarie 2015 12:36:33
Problema Pascal Scor 50
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<cstdio>
int r,i,j,rand,k,l,re,q,cq,cl,nr,put,pp;
int main ()
{
freopen("pascal.in","r",stdin);
freopen("pascal.out","w",stdout);
scanf("%d%d",&rand,&k);
if(k==4)
    {
    k=2;
    pp=1;
    }
l=rand+1;
for(i=2;i<=rand+1;i++)
    {
    l--;
    q++;
    cl=l;
    cq=q;
    while(cl%k==0)
        {
        put++;
        cl/=k;
        }
    while(cq%k==0)
        {
        put--;
        cq/=k;
        }
    if(put>0&&pp==0||pp==1&&put>1)
        nr++;
    }
printf("%d",nr);
return 0;
}