(*Списъци*)

{a,b,c}
{{1,3},{2,5}}
{x,1,3}
{x==1,y==3}

{{{1,2},3},{1,4},{3}}

{1,2,3,4,5,6,7,8,9}^2

(Sqrt[{{{2,3},{4,5}},{6,7},8}])

(1/({1,2,3,4,5}))

{1,2,3}+{4,5,6}

{1,2,3}-{4,5,6}

{1,2,3}*{4,5,6}

{1,2,3}{4,5,6}

{1,2,3}/{4,5,6}

2^{0,1,2,3,4,5,6,7,8,9,10}

Cos[{0,Pi/4,Pi/2,3Pi/4,Pi}]

Log[{1,2,3,4,5}]//N

aa={2,x,y,{a,b}}

Length[aa]

aa[[2]]

aa[[3]]

aa[[4]]

aa[[4]][[2]]

aa[[4,2]]

aa[[{1,3}]]

aa[[1;;3]]

First[aa]

Last[aa]

bb={1,{2,{3,{4,5},6}},7}

bb[[2,2,2,1]]

Range[10]

Range[1.2,12.3,1/2]

Range[2,10]

Range[2,10,1/2]

{2,(5/2),3,(7/2),4,(9/2),5,(11/2),6,(13/2),7,(15/2),8,(17/2),9,(19/2),10}

Range[2,10.2,1/2]

Table[k^2,{k,10}]

Table[k^2,{k,1,10}]

Table[k^2,{k,2,10}]

Table[k^2,{k,2,10,1/2}]

Table[Table[i-j,{i,4}],{j,4}]

%//MatrixForm

(({{0, 1, 2, 3}, {-1, 0, 1, 2}, {-2, -1, 0, 1}, {-3, -2, -1, 0}}))

Table[j-i,{i,4},{j,4}]

%//MatrixForm

(({{0, 1, 2, 3}, {-1, 0, 1, 2}, {-2, -1, 0, 1}, {-3, -2, -1, 0}}))

f[x_]:=2x+1

NestList[f,1,9]

{1,f[1],f[f[1]],f[f[f[1]]],f[f[f[f[1]]]],f[f[f[f[f[1]]]]],f[f[f[f[f[f[1]]]]]],f[f[f[f[f[f[f[1]]]]]]],f[f[f[f[f[f[f[f[1]]]]]]]],f[f[f[f[f[f[f[f[f[1]]]]]]]]]}

Flatten[{{1,2},3,4,{{5,6},7},8}]

Append[{1,2},3]

Prepend[{1,2},0]

a=215/111

Union[{a,2},{v,8},{h,s}]

Join[{a,2},{v,8},{h,s}]

Union[{a,2},{v,8},{h,s,v}]

Join[{a,2},{v,8},{h,s,v}]

points=Table[{2i,5-i},{i,8}]

addpairs[{x_,y_}]:=x+y

Map[addpairs,points]

vol[r_,h_]:=Pi r^2 h

mes:={3.5,4.5}

vol[mes[[1]],mes[[2]]]

Apply[vol,mes]

Apply[Plus,{2,3,4,5,6,7,8,9}]

Apply[Times,{2,3,4,5,6,7,8,9}]