Calcul de logarithmes

Calculer sans utiliser la calculatrice:

Clear[x];Clear[m];Clear[a,b,c,d,log];
For[i=1,i<3,
a[i]=Random[Integer,{2,5}];
b[i]=0;While[b[i]==0,
b[i]=Random[Integer,{-5,5}]];
c[i]=Random[Integer,{-2,2}];
d[i]=Random[Integer,{-4,4}];
Print[i,") ",(Subscript[log, a[i]])  [a[i]^b[i]]];
i++];
For[i=3,i<5,
a[i]=Random[Integer,{2,5}];
b[i]=0;While[b[i]==0,
b[i]=Random[Integer,{-5,5}]];
c[i]=Random[Integer,{-2,2}];
d[i]=Random[Integer,{-4,4}];
Print[i,") ",(Subscript[log, (1/(a[i]))])  [a[i]^b[i]]];
i++];
For[i=5,i<8,
a[i]=Random[Integer,{2,5}];
b[i]=0;While[b[i]==0,
b[i]=Random[Integer,{-5,5}]];
c[i]=Random[Integer,{2,3}];
d[i]=Random[Integer,{-4,4}];
Print[i,") ",(Subscript[log, a[i]])  [a[i]^(b[i]/c[i])]];
i++];
For[i=8,i<11,
a[i]=10;
b[i]=0;While[b[i]==0,
b[i]=Random[Integer,{-5,5}]];
c[i]=Random[Integer,{2,3}];
d[i]=Random[Integer,{-4,4}];
Print[i,") ",log  [a[i]^b[i]]];
i++];

CellPrint[Cell["Solutions :","Subsubtitle",PageBreakAbove->True]]

Solutions :

For[i=1,i<3,
Print[i,") ",b[i]];
i++];
For[i=3,i<5,
Print[i,") ",-b[i]];
i++];
For[i=5,i<8,
Print[i,") ",b[i]/c[i]];
i++];
For[i=8,i<11,
Print[i,") ",b[i]];
i++];