(*1.*)Plot[Tan[x],{x,-4Pi,4Pi}]

ClearAll["Global`*"]

(* 4. *)  Solve[5(x^2) + 4x -27 ==0]

ClearAll["Global`*"]

(*3. *)Solve[2(Subscript[x, 1])+3(Subscript[x, 2])+4.2(Subscript[x, 3]) ==5&&3(Subscript[x, 1])+15.2(Subscript[x, 2])+8.7(Subscript[x, 3]) ==80.1&&4(Subscript[x, 1])+8.9(Subscript[x, 2])+17.2(Subscript[x, 3]) ==11]

ClearAll["Global`*"]

(*2. *)Plot3D[x^2+2x*y+2y^2,{x,-4,4},{y,-6,4}]