Joa, hier mal das QBasic-Programm, wenn jemand es nachprüfen will:
CLS
Ziffer1 = 0
Ziffer2 = 1
Zahl = Ziffer1 * 10 + Ziffer2
DO
Ergebnis = Zahl - (Ziffer1 + Ziffer2)
PRINT Zahl; "-"; "("; Ziffer1; " + "; Ziffer2; ")"; "="; Ergebnis
IF Ziffer2 = 9 THEN Ziffer1 = Ziffer1 + 1
IF Ziffer2 = 9 THEN Ziffer2 = 0 ELSE Ziffer2 = Ziffer2 + 1
Zahl = Ziffer1 * 10 + Ziffer2
SLEEP
LOOP UNTIL Zahl = 99 |