Cod sursa(job #1337606)

Utilizator ASTELOTudor Enescu ASTELO Data 9 februarie 2015 11:46:52
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<cstdio>
int r,i,j,rand,k,l,re,put,q,cq,cl,nr;
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;i++)
    {
    l--;
    q++;
    cl=l;
    cq=q;
    while(cl%k==0)
        {
        put++;
        cl/=k;
        }
    while(cq%k==0)
        {
        put--;
        cq/=k;
        }
    if(put>0)
        nr++;
    }
printf("%d",nr);
return 0;
}