-
Notifications
You must be signed in to change notification settings - Fork 0
/
04a.ddp
34 lines (31 loc) · 1.17 KB
/
04a.ddp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Binde "Duden/Listen" ein.
Binde "Duden/Eingabe" ein.
Binde "Duden/Texte" ein.
Binde "Duden/Mathe" ein.
Binde "Duden/Ausgabe" ein.
Binde "Hilfsmittel" ein.
Die Zahl Gesamtsumme ist 0.
Solange nicht die Benutzereingabe zu Ende gewesen ist, mache:
Der Text Zeile ist die nächste Zeile.
[ Entferne Zeilennummer ]
Speichere Zeile von 11 bis (die Länge von Zeile) in Zeile.
[ Speichere Gewinnzahlen ]
Die Zahlen Liste Gewinnzahlen ist eine leere Zahlen Liste.
Wiederhole:
Füge ((Zeile von 1 bis 3) als Zahl) an Gewinnzahlen an.
Entferne 3 Buchstaben am Anfang von Zeile.
10 Mal.
[ Entferne Trennzeichen ]
Entferne 2 Buchstaben am Anfang von Zeile.
[ Überprüfe ob Zahl in Gewinnzahl ]
Die Zahl Wert ist 0.
Wiederhole:
Die Zahl freigerubbelteZahl ist (Zeile von 1 bis 3) als Zahl.
Wenn Gewinnzahlen freigerubbelteZahl enthält, dann:
Wenn Wert gleich 0 ist, dann:
Speichere 1 in Wert.
Sonst speichere Wert mal 2 in Wert.
Entferne 3 Buchstaben am Anfang von Zeile.
25 Mal.
Speichere Gesamtsumme plus Wert in Gesamtsumme.
Schreibe Gesamtsumme auf eine Zeile.