Cod sursa(job #1900637)

Utilizator ASTELOTudor Enescu ASTELO Data 3 martie 2017 15:29:38
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 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);
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;
}