In welcher Programmiersprache möchtest du dies Realisieren?

Für Bascom wäre folgende Lösung denkbar:
Verwende die Befehle ABS() und MOD

Code:
$regfile = "m8def.dat"
$crystal = 16000000
Baud = 9600

' Dieses Beispiel zerlegt eine Zahl (bis 99) in die Zehner und Einer.

Dim Ix1 As Integer                                ' Quelle Source Variable
Dim Ix2 As Integer                                ' Erstes Ergebniss
Dim Ix3 As Integer                                ' zweites Ergebniss

Dim Fx As Single                                  ' Fliepßkomma Variable (Temporär)

Ix1 = 25

Fx = Ix1 / 10
Ix2 = Abs(fx)
Ix3 = Ix1 Mod 10

Print " Eingabe = ";
Print Ix1
Print " 1. Wert (10er) = ";
Print Ix2
Print " 2. Wert (1er) = ";
Print Ix3

End                                               'end program
Als Ausgabe erscheint:

  • Eingabe = 25
    1. Wert (10er) = 2
    2. Wert (1er) = 5