Programm für Umrechnung von dezimalen Zahlensystem in das "siebener Zahlen System.

Ich hab mal die Vorgabe von GerdW erweitert.
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