In[]:=
(*zadanie1*)​​ListStepPlot[Table[(n^3+3n+1)/(n+2)^2,{n,1,20}]]​​ListStepPlot[Table[(n^3+3n+1)/(n^2+2)^2,{n,1,20}]]​​ListStepPlot[Table[(n^7+n^3+1)^5/(n^5+n^3+1)^7,{n,1,20}]]​​ListStepPlot[Table[(n^7+n^3+1)^(1/5)/(n^5+n^3+1)^(1/7),{n,1,20}]]​​ListStepPlot[Table[((n+1)^7-(n-1)^7)/n^6,{n,1,20}]]​​ListStepPlot[Table[((n^7+n^3+1)^5-(n^5+n^3+1)^7)/n^32,{n,1,20}]]​​ListStepPlot[Table[n^2-n,{n,1,20}]]​​ListStepPlot[Table[n^2+(-1)^nn,{n,1,20}]]​​ListStepPlot[Table[(1+(-1)^nn)^2,{n,1,20}]]​​ListStepPlot[Table[(1+(-1)^n)n^2+(1-(-1)^n)n+(-1)^n,{n,1,20}]]​​ListStepPlot[Table[((2n+1)/(n+3))^n,{n,1,20}]]​​ListStepPlot[Table[(n!)^(1/n),{n,1,20}]]​​ListStepPlot[Table[Sqrt[n^3+n^2]-Sqrt[n^3-n^2],{n,1,20}]]​​ListStepPlot[Table[Sqrt[n^3+n]-Sqrt[n^3-n],{n,1,20}]]
Out[]=
5
10
15
20
5
10
15
Out[]=
5
10
15
20
0.1
0.2
0.3
0.4
0.5
Out[]=
5
10
15
20
0.2
0.4
0.6
0.8
1.0
Out[]=
5
10
15
20
2
4
6
8
Out[]=
5
10
15
20
14
16
18
20
22
24
Out[]=
5
10
15
20
-250
-200
-150
-100
-50
Out[]=
5
10
15
20
100
200
300
400
Out[]=
5
10
15
20
100
200
300
400
Out[]=
5
10
15
20
100
200
300
400
Out[]=
5
10
15
20
200
400
600
800
Out[]=
5
10
15
20
5000
10000
15000
20000
25000
30000
35000
Out[]=
5
10
15
20
2
4
6
8