Ziffer wählen

Guthaben

Gerade Zahl?(20)

Neustart

Primzahl?(3)

Quersumme?(10)

Ziffernanzahl?(20)

100er-Nachbar?(40)

< als die Zahl?(20)

Ratezahl

Zahl

\;\;\;\;\;\; \;Glückwunsch!!\Die\; Zahl \;wurde\; erraten!

Prim?

z_1 = Random(1, 9)
z_2 = Random(0, 9)
z_3 = Random(0, 9)
z_4 = Random(0, 9)
z_5 = Random(0, 9)
zahl: (z_1 * 10000) + (z_2 * 1000) + (z_3 * 100) + (z_4 * 10) + z_5
istprim = IsPrime(zahl)
liZiffern: {z_1, z_2, z_3, z_4, z_5}
guthaben = 100
prüfziffern: {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
istgerade = If(IsInteger[zahl / 2], true, false)
nachbar100 = Random(Max[10000, zahl - 100], Min[99999, zahl + 100])
quersumme = Sum(liZiffern)
xMin: -10
gutmax: 100
kleiner: true
Vieleck1 = Polygon((0, 0), (guthaben^(0.5), 0), 4)
abfragegerade = false
abfrageprim = false
abfragequer = false
yMax: 12
liausgesuchteZiffer = Sequence(SelectedElement[prüfziffern], n, 1, 5)
anzahlZiffer: 5 - Length[Remove[liausgesuchteZiffer, liZiffern]]
textziffer: "" + (LaTeX[anzahlZiffer]) + ""
abfrageziffer = false
abgefragteZiffer = 5
abfragenachbar = false
vergleichszahl = 50000
abfragekleiner = false
Eingabefeld6 = Textfield(vergleichszahl)
Text4: "" + (LaTeX[vergleichszahl]) + ""
textabzi: "mal Ziffer " + (LaTeX[abgefragteZiffer]) + ""
ratezahl = NaN
Eingabefeld1 = Textfield(ratezahl)
Text1: "" + (LaTeX[If[istgerade, "Gerade", "Ungerade"]]) + ""
Text2: "" + (LaTeX[If[istprim, "Primzahl", "Keine\; Primzahl"]]) + ""
textquer: "Quersumme\;" + (LaTeX[quersumme]) + ""
textnachbar: "Nachbarzahl\;" + (LaTeX[nachbar100]) + ""
Text3: "" + (LaTeX[If[vergleichszahl < zahl, "<", "≥"]]) + ""
Text6: "Restguthaben\;" + (LaTeX[guthaben]) + ""
primtestzahl = 94436
einprimtest = Textfield(primtestzahl)
istprimtest = IsPrime(primtestzahl)
Text8: "Die Zahl ist " + zahl + "."