In[]:=
(*zadanie2*)Show[Graphics[Table[Point[{i/j+j/(i+j),0}],{i,1,40},{j,1,40}]],Axes{True,False},PlotRange{{0,10},All}]ListPointPlot3D[Table[i/j+j/(i+j),{i,1,40},{j,1,40}],PlotRange{0,3}]
Out[]=
Out[]=
In[]:=
(*zadanie3*)Show[Graphics[Table[Point[{i/(j+k)+j/(i+k)+k/(i+j),0}],{i,1,20},{j,1,20},{k,1,20}]],Axes{True,False},PlotRange{{0,10},All}]ListPointPlot3D[Flatten[Table[{i,j,i/(j+k)+j/(i+k)+k/(i+j)},{k,1,8},{i,1,20},{j,1,20}],{{1},{2,3},{4}}],PlotRange{0,4}]
Out[]=
Out[]=
In[]:=
(*zadanie6*)ListStepPlot[Table[(1-1/n)^n,{n,1,20}]]
Out[]=
In[]:=
(*zadanie9*)ListStepPlot[Table[2^nn!/n^n,{n,1,20}]]
Out[]=
In[]:=
(*zadanie11*)ListStepPlot[Table[(n!)^(1/n)/n,{n,1,20}]]
Out[]=
In[]:=
(*zadanie13*)ListStepPlot[Table[n^n/2^(nSqrt[n]),{n,1,20}]]
Out[]=
In[]:=
(*zadanie14*)ListStepPlot[Table[(1+1/n)^(n+1/2),{n,1,20}]]
Out[]=