überleg, überleg.... hmm
du könntest es so machen:
(entwurf von 1 minute überlegung..)
Delphi-Quellcode:
for i:=1 to length(Zahl.zahl) do
begin
if Zahl.Zahl[i] mod zuDividieren <> 0 //wenns nicht aufgeht
then Zahl.Zahl[i+1]:=Zahl.Zahl[i+1]+Zahl.zahl[i] mod zuDividieren; //dann wird der rest zur ziffer drunter dazugetan
Zahl.Zahl[i]:=Zahl.Zahl[i] Div zuDividieren;
end;
allerdings kann es probleme geben wenn du shortiont nutzt, ach nee, is ja bis 256
obwohl, wenn du ne primzahl über 100 teilst dann isses im arsch...
es muss halbwegs aufgehen...
nee, ehrlich, das müsste funzen...