Aufgabe 6

{1, 2, 4} . {0, 1, λ}

Solve[{1, 2, 4} . {0, 1, λ} == 0, λ]

Aufgabe 7

{x, y, z} = {1, 3, 4} + t*{1, 2, 3}

sol = Solve[x + 2  y + 3  z == 4, t]

{x, y, z} /. sol[[1]]

Clear[x, y, z]

Aufgabe 8

s = Sum[Binomial[m + k, k], {k, 0, n}]

s - Binomial[m + n + 1, n] // FullSimplify

Aufgabe 9

s = Sum[(1/(k (k + 1))), {k, 1, n}]

Limit[s, n -> Infinity]

Aufgabe 10

Sum[k Binomial[n, k], {k, 0, n}]

Aufgabe 11

Table[(((1 + (1. /(10^k))))^((10^k))), {k, 2, 6}]

Aufgabe 12

F[1] = 1; F[2] = 1; F[n_] := F[n] = F[n - 1] + F[n - 2]

Table[F[n], {n, 1, 20}]