18.10.2018, 09:20
Ich hab mal die Vorgabe von GerdW erweitert.
Damit sollte es funktionieren.
Gruß Freddy
Damit sollte es funktionieren.
Code:
Code:
count :=0
boolen :=true
WHILE boolen
dividend := dividend - divisor
count++
IF dividend < divisor
char string:= char ( int dividend) + char string
dividend:= count
IF count = 0
boolen := true
ELSE
boolen := fals
END IF
count:=0
END IF
WEND
remainder := int (char string)
Gruß Freddy