Quersumme erstellen die durch 9 teilbar ist

[Dani]

Yepp, hast Recht!
Ist es denn notwendig, dass die Zahlen berechnet werden? Sonst könntest du auch so lange Zufallszahlen erzeugen, bis du auf eine mit der Quersumme 9 stößt

Delphi-Quellcode:

function Quersumme(Int: Integer): Integer;
var sTmp: String;
       i: Integer;
begin
 Result := 0;
 Int := abs(Int);
 sTmp := IntToStr(Int);
 for i:=1 to Length(sTmp) do
  Result := Result + StrToInt(sTmp[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Found: Integer;
begin
 Repeat
  Found := Random(MaxInt) + 1;
 Until (Quersumme(Found) mod 9) = 0;
 ShowMessage(IntToStr(Found));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;