Lösungen

1

Sum[k, {k, 1, 9999}]

Sum[k, {k, 1, 10000}]

2  Sum[k, {k, 1, 9999}] + 10000

2

a

Remove[a, b, c, ab, ac, bc, x, abc]

{a, b, c, ab, ac, bc, x} = {28, 32, 26, 15, 17, 19, 5}

s2 = 
      Solve[abc == a + b + c - ab - ac - bc + x, abc] // Flatten

x = x /. s2

b

x1 = a - ab - ac + x

x1 = a - ab - ac + x

x2 = b - ab - bc + x

x2 = c - bc - ac + x

c

Aufgabe b: Unzulässiger negativer Wert

3

Remove[x, y]

MatrixForm[{{x, y, "¬y", "x v ¬y"}, {0, 0, 1, 1}, {0, 
          1, 0, 0}, {1, 0, 1, 1}, {1, 1, 0, 1}}]

MatrixForm[{{x, y, "¬x", "¬x^y"}, {0, 0, 1, 0}, {0, 
          1, 1, 1}, {1, 0, 0, 0}, {1, 1, 0, 0}}]

MatrixForm[{{x, 
          y, "x v ¬y", "¬x^y", "x ^ ¬y ==> ¬x ^ \
y"}, {0, 0, 1, 0, 0}, {0, 1, 0, 1, 1}, {1, 0, 1, 0, 0}, {1, 1, 1, 0, 
          0}}]

4

a

Remove[a, x, c]

x1 = {1, 4}; x2 = {2, 4}; x3 = {2, 1}; x4 = {1, 2}; x5 = {3, 3}; 
    x6 = {3, 1}; x7 = {4, 2}; c[x_] := Circle[x + {0, 0.2}, 0.2]

<< Graphics`Arrow`

a[x1_, x2_] := Arrow[x1, x2];
Show[
        Graphics[{c[x1], c[x2], c[x3], a[x1, x3], a[x1, x3], a[x3, x1], 
            c[x4], a[x4, x5], a[x5, x6], a[x7, x6], a[x7, x4], 
            a[x5, x7]}]];

Alle Kringel anfügen, alle Pfeil transitiv ergänzen und umkehren

b

Nein (wegen Kringel oder umgekehrten Pfeilen)

5

<< Algebra`InequalitySolve`

InequalitySolve[
      x + y ≥ -1  &&  -x + 
            y ≥ -2  &&  y ≤ 2, {x, 
        y}]

<< Graphics`InequalityGraphics`

InequalityPlot[
        x + y ≥ -1  &&  -x + 
              y ≥ -2  &&  y ≤ 2, {x, -9, 
          8}, {y, -5, 5}];

6

Remove[f, a, b, c, g]

f[x_] := a x^2 + b x  +  c;  
    g[x_] := Expand[(x - 1) (x - 2)] ;  f[x]==g[
        x]

Solve[{f[0] == g[0], f[1] == g[1], f[2] == g[2]}, {a, 
        b, c}]

sNew = Solve[g[x] == 0, {x}] // Flatten

x1 = x /. sNew[[1]];  
    x2 = x /. sNew[[2]];
{x1 + x2,  x1 x2}