Lösungen/Solutions/E1S1AlUe/Ex5

L=Lektion/Leçon-- Sprechstunde/heures de consultation
W=Work/Arbeit/Travail
A  =Anhang/  Annexe / Appendice

Ueb/Ex 1      W

Remove["Global`@*"]

Sum[2^(k), {k, 0, n - 1}]

Ueb/Ex 2      W

AA = {a, b, c, d}; BB = {a, c, e, f}; CC = {c, d, e, f, g};

Union[Intersection[AA, BB], CC]

Intersection[Complement[AA, BB], Complement[AA, CC]]

Complement[Complement[AA, BB], CC]

Ueb/Ex 3      W

Sum[(-1)^(k - 1) /k^2, {k, 1, 5}]

% // N

Ueb/Ex 4      W

a

x^(n - 5)/x^(n - 4)

b

(Sqrt[a] + Sqrt[b]) (Sqrt[a] - Sqrt[b]) // Simplify

b

(Sqrt[a])^(1/3)/a^(1/6)

Ueb/Ex 5      W

Expand[(2 + x/10)^5]