$b=$

0123456789.,

$a=$

$\text{Überprüfen}$

$\text{Neuer Versuch}$

$\text{Neue Aufgabe}$

\textsf\colorbox{#ebe7f8}{              Nutze die Tabelle.                 \\\\\\\\\\\\\\\\\\\\\\\\\\}

No selection allowed for all input boxes

Selection allowed for all input boxes

\text{Berechne den Prozentsatz!}

Empty all input boxes

#EDEDED

questionCount: 1
randomNosForX = Join({{2, 4, 5}, Shuffle[Sequence[Random[1, 20], i, 1, 100]]})
numX: (Element[randomNosForX, Mod[questionCount, 100]] * 5)
randomNosForY = Join({{5, 5, 8}, Shuffle[Sequence[Random[1, 9], i, 1, 100]]})
numY: (Element[randomNosForY, Mod[questionCount, 100]] * 100)
sol: ((numY * numX)) / 100
text1: "\textsf{" + (LaTeX[ReplaceAll["" + sol, ".", ","]]) + " sind}"
PositionInputbox: Corner[text1, 3] + (0.2, 0)
bInput = NaN (slider from -5 to 5)
InputBox2 = Textfield(bInput)
inputCorrectB: Length[KeepIf[¬(temp ∈ TextToUnicode[permittedSymbols]), temp, TextToUnicode[Text[InputBox2]]]] ≟ 0
aInput = NaN
InputBox1 = Textfield(aInput)
inputCorrect: Length[KeepIf[¬(temp ∈ TextToUnicode[permittedSymbols]), temp, TextToUnicode[Text[InputBox1]]]] ≟ 0
validate = false
showanswer = false
showsolution = false
attemptCount = 0
correctCount = 0
textCountCorrect: "\text{Richtig gelöste Aufgaben: " + (LaTeX[correctCount]) + " }"
showButtonNew = false
showButtonTryAgain = false
showButtonValidate = true
showhint = false
correct: aInput ≟ numX
showcorrecttext = false
PbottomRightCornerFeedback: PositionInputbox + (1.35, -0.73)
PtopLeftCornerFeedback: PositionInputbox + (-0.1, 0.2)
PtopRightCornerFeedback: (x(PbottomRightCornerFeedback), y(PtopLeftCornerFeedback))
PbottomLeftCornerFeedback: (x(PtopLeftCornerFeedback), y(PbottomRightCornerFeedback))
rectangleCorrect, ptopleftcornerfeedback, ptoprightcornerfeedback, pbottomrightcornerfeedback, pbottomleftcornerfeedback = Polygon(PtopLeftCornerFeedback, PtopRightCornerFeedback, PbottomRightCornerFeedback, PbottomLeftCornerFeedback)
showhinttypicalerror = false
allowCountIncrement = true
fixed = Defined(aInput)
isTypicalError: false
correctText: "\text{" + (LaTeX[If[correct, "✓ Richtig", "✘ Falsch"]]) + "}"
cInput = NaN
dInput = NaN
eInput = NaN
InputBox3 = Textfield(cInput)
InputBox4 = Textfield(dInput)
InputBox5 = Textfield(eInput)
A = (0.15765252733516913, 3.8442799568886112)
B = (0.62416, 3.35204)
C = (0.4241634282371687, 4.285739337346556)
c = CircleArc(A, B, C)
A_{1} = (-0.5423474726648309, 2.9278720968747334)
B_{1}: (-0.27584, 2.43564)
C_{1} = (-0.2758365717628314, 3.3693314773326795)
D = (-3.34721, 3.84428)
E = (-3.81838, 4.28574)
F = (-3.81838, 3.35204)
d = CircleArc(D, E, F)
D_{1} = (-3.54721, 2.94428)
E_{1} = (-4.01838, 3.38574)
F_{1} = (-4.01838, 2.45204)
G = Point(d)
H = (-3.718381494843506, 3.319228436444544)
u = Vector(G, H)
D_{2} = (-3.34721, 2.84428)
E_{2} = (-3.81838, 3.28574)
F_{2} = (-3.81838, 2.35204)
d_{1} = CircleArc(D_{2}, E_{2}, F_{2})
G_{1} = Point(d_{1})
H_{1} = (-3.718381494843506, 2.319228436444543)
u_{1} = Vector(G_{1}, H_{1})
I = Point(c)
J = (0.5093084081400302, 3.2535969963890357)
v = Vector(I, J)
A_{2} = (0.15765252733516913, 2.7442799568886103)
B_{2} = (0.62416, 2.25204)
C_{2} = (0.6241634282371686, 3.1857393373465563)
c_{1} = CircleArc(A_{2}, B_{2}, C_{2})
I_{1} = Point(c_{1})
J_{1} = (0.5093084081400302, 2.1535969963890347)
v_{1} = Vector(I_{1}, J_{1})
inputCorrectC: Length[KeepIf[¬(temp ∈ TextToUnicode[permittedSymbols]), temp, TextToUnicode[Text[InputBox3]]]] ≟ 0
inputCorrectD: Length[KeepIf[¬(temp ∈ TextToUnicode[permittedSymbols]), temp, TextToUnicode[Text[InputBox4]]]] ≟ 0
inputCorrectE: Length[KeepIf[¬(temp ∈ TextToUnicode[permittedSymbols]), temp, TextToUnicode[Text[InputBox5]]]] ≟ 0
text7: "\textsf{% von " + (LaTeX[NumberSeperation[numY]]) + ".}"
solutionText: "\text{Lösung:\\" + (LaTeX[ReplaceAll["" + sol, ".", ","]]) + " sind " + (LaTeX[numX]) + " \% von " + (LaTeX[NumberSeperation[numY]]) + ".}"
c2: cInput ≟ 1
c3: dInput ≟ numX
c4: eInput ≟ sol
text3: "\textsf{: " + (LaTeX[numY]) + "}"
text4: "\textsf{: " + (LaTeX[numY]) + "}"
text5: "\textsf{\cdot " + (LaTeX[sol]) + "}"
text6: "\textsf{\cdot " + (LaTeX[sol]) + "}"
c1: bInput ≟ 100 / numY
text2: "\textsf{
\begin{tabular}{|c|c|}
\hline\\\\
Wert &  Prozent \%  \\\\
\hline\\\\" + (LaTeX[NumberSeperation[numY]]) + " & 100\\\\
\hline\\\\
\qquad     & \qquad     \\\\\\\\
\hline\\\\
\qquad     & \qquad     \\\\\\\\
\hline
\end{tabular}"

Tool: NumberSeperation
NumberSeperation[ <Number> ]
Input: num1
Output: text1

l1 = Reverse(TextToUnicode[("" * num1)])
m1 = Sequence(Take[l1, i, Min[i + 2, Length[l1]]], i, 1, Length[l1], 3)
l3 = Zip(Append[l, 32], l, m1)
l2 = Take(Reverse[Flatten[l3]], 2)
text1 = UnicodeToText(l2)