3+7

N[Pi,50]

Solve[2x+3==20,x]

Sum[n,{n,1,100}]

Sum[n^2,{n,1,100}]

Plot[x^2,{x,-4,4},PlotStyle->Thickness[0.01]]

square={1,4,9,16,25,36}

ListPlot[square]

Plot[{x^2,5x^2},{x,-4,4},PlotStyle->Thickness[0.01]]

Manipulate[Plot[a*x^2,{x,-4,4},PlotRange->{0,20},PlotStyle->Thickness[0.01]],{a,1,5}]

(* If command *)

x=12;
If[x/2==IntegerPart[x/2],0,1]

(* Do command *)

rt=0;
Do[rt=rt+n,{n,1,4}]

rt

rt=0;
Do[rt=rt+n;Print[rt],{n,1,4}]

Clear[x]
c=0.25+0.25I;
f[x_]=x^2+c

x[0]=f[0];
Do[x[n]=f[x[n-1]];Print[x[n]],{n,1,20}]