mereni[od_,do_,step_,opak_]:=
Table[
Module[{a,b},
a=RandomInteger[2^i];
b=RandomInteger[2^i];  
{i,Do[a*b;,{opak}]//Timing//First}
],
{i,od,do,step}]

vysledky1=mereni[50,1000,50,100000]

vysledky2=mereni[500,10000,500,5000]

vysledky3=mereni[5000,100000,5000,300]

vysledky4=mereni[50000,1000000,50000,10]

vysledky5=mereni[500000,10000000,500000,1]

model=k*x^l+m

fit=FindFit[vysledky1,model,{k,l,m},x]
Show[ListPlot[vysledky1, PlotStyle->Red,AxesOrigin->{0,0}], Plot[{f,model/.fit},{x, 0,1000} ]]

fit=FindFit[vysledky2,model,{k,l,m},x]
Show[ListPlot[vysledky2, PlotStyle->Red,AxesOrigin->{0,0}], Plot[{f,model/.fit},{x, 0,10000} ]]

fit=FindFit[vysledky3,model,{k,l,m},x]
Show[ListPlot[vysledky3, PlotStyle->Red,AxesOrigin->{0,0}], Plot[{f,model/.fit},{x, 0,100000} ]]

fit=FindFit[vysledky4,model,{k,l,m},x]
Show[ListPlot[vysledky4, PlotStyle->Red,AxesOrigin->{0,0}], Plot[{f,model/.fit},{x, 0,1000000} ]]

fit=FindFit[vysledky5,model,{k,l,m},x]
Show[ListPlot[vysledky5, PlotStyle->Red,AxesOrigin->{0,0}], Plot[{f,model/.fit},{x, 0,10000000} ]]