N[2^200,10]
N[Log[5,135],10]
N[Exp[7-9I],10]
N[Log[1+Exp[-2]],10]
N[Sin[15 Degree] + Cos[15 Degree],10]
N[Sqrt[Log[Sin[35 Degree]]]]
N[Cos[2*ArcCos[1/3]-ArcCos[1/6]],10]

GCD[861,1638,2415]

3!!/7!!
6!!/15!!
7!!/20!!

x1=0.12`50;
x2 =67/100;
N[Exp[-x1^2]Sin[x1],50]
N[Exp[-x2^2]Sin[x2],50]

a = Table[2n-1,{n,1,50}]
Total[a]
Apply[Times,a]

b = Table[n^2, {n,1,10}]
Total[b]
Apply[Times,b]

c = Table[1/(2n),{n,1,50}]
Total[c]
Apply[Times,c]

d = Table[Prime[n],{n,1,PrimePi[100]}]
Total[d]
Apply[Times,d]

a = Table[2n-1,{n,1,50}];
For[i=1,i<=3,i++, a=Drop[a,{RandomInteger[{1,50+1-i}]}]];
Print[a]

b = Table[n^2, {n,1,10}]
For[i=1,i<=3,i++, b=Drop[b,{RandomInteger[{1,10+1-i}]}]];
Print[b]

c = Table[1/(2n),{n,1,50}]
For[i=1,i<=3,i++, c=Drop[c,{RandomInteger[{1,50+1-i}]}]];
Print[c]

d = Table[Prime[n],{n,1,PrimePi[100]}]
For[i=1,i<=3,i++, d=Drop[d,{RandomInteger[{1,PrimePi[100]+1-i}]}]];
Print[d]

Grid[Table[10i+j,{i,1,4},{j,1,i}]]

array = RandomSample[100;;200,60]
Sort[array]
Reverse[Sort[array]]

s<m<t
x<=-10 || x>=10
-2<x<=6 && !(-2<=y<7)

P1={0,1};P2={1,0};P3={1,-1};
R1=2;R2=Sqrt[3];R3=1;
Ρ= RegionIntersection[
Disk[P1,R1],
Disk[P2,R2],
Disk[P3,R3]
];
RegionMember[Ρ,{Sqrt[1/2],-Sqrt[1/2]}]

Expand[(x+1)(x^2-2x+3)]
Expand[x(y-z)+y(z-x)+z(x-y)]

Simplify[(x-2)^(x^2+2x+4)+(x+5)(x^2-5x+25)]
%/.x->4
Simplify[(y-2)(y^2-6y-9)-y(y^2-2y-15)]
%/.y->1/2

Factor[x^5-x^3]
Factor[16-x^4]
Factor[(x+y)^2-10(x+y)+25]
Factor[3a*x+4b*y+4a*y+3b*x]