Teilbarkeit für ungerade Zahlen
Author: Mag.G.Wengler

Bei (1) kannst du eine beliebige Zahl eingeben. Diese Zahl soll nun geprüft werden, ob die vorgegebene ungerade Nummer 
ein Teiler ist oder nicht.

Zahl eingeben:

Teilbarkeitsprüfung für ungerade Nummern

NEU

z

Diese Summe durch 10 dividieren und als neue Zahl eingeben

(außer Vielfache von 5)

Kannst du erklären, warum dies so funktioniert?

Welcher Rest bleibt übrig? 

(1)

Rest =

(2)

(3)

Hilfe

zahl = 0
Textfeld1 = Textfield(zahl)
t = Random(1, 20)
T_u: 2 * t - 1
Teiler = If(Mod[T_u, 5] ≟ 0, T_u - 2, T_u)
V = Sequence(Teiler * k, k, 1, 9)
sum = 0
Textfeld2 = Textfield(sum)
A = (-3.5, 1.38)
a = Line(A, xAxis)
B = Point(a)
b = Segment(A, B)
summe: zahl + sum
Text5: "Summe = " + summe + ""
C = (6.54, -0.5)
c = Line(C, b)
D = Point(c)
d = OrthogonalLine(D, c)
E = Point(d)
e = OrthogonalLine(E, d)
F = Point(e)
f = Segment(C, D)
g = Segment(D, E)
u = Vector(E, F)
Text6: "Vielfaches von " + Teiler + " eingeben: "
r = 0
Text3: "" + V + ""
Textfeld3 = Textfield(r)
rest = Mod(zahl, Teiler)
richtig: r ≟ rest
Text4: "Addiere ein Vielfaches von " + Teiler + " so, dass die Summe mit der Zahl durch 10 teilbar wird."
start = true
h = false
Text2: "\Large ungerade \;Nummer: " + (LaTeX[Teiler]) + ""