Also mal Blind gecoded, kann sein das du hier und da noch was ändern must. Aber als Grundlage könnte es dienen
Delphi-Quellcode:
const Range = 100000;
Basis = 10;
var Ergebnis1,Ergebnis2,tmp,rest,ln,Number:integer;
Begin
// Besimmen deiner Zufahlszahl, Randomize nicht vergessen
Number := Random(Range +1);
// initialisieren
ln:=0;
tmp:= 0;
rest:=0;
// berechnen des LN und gleichzeitig aufaddieren der einzelnen Ziffern
while Number > 0 do begin
Rest:= Number mod Basis;
tmp:= tmp + Rest;
Number:= Number div Basis;
inc(ln);
end;
// Fehler Abfangen ;)
ln:=max(1,ln);
// Berechnen deines Ergebnisses
Ergebnis1 := rest div ln;
Ergebnis2 := rest mod ln;