Pezision

[Bummi]

ich würde vorschlagen wir kürzen das Ganze diesmal ab

Delphi-Quellcode:

Function QMult(const s:String):String;
var
 a:Array of Integer;
 i:Integer;
 IRes:Integer;
begin
  SetLength(a,Length(s));
  for I := 1 to Length(s) do a[i-1] := Ord(s[i]) - 48;
  IRes := a[0];
  for I := Low(a) + 1 to High(a) do IRes := IRes * a[i];
  Result := IntToStr(IRes);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 start:Integer;
 SSTart:String;
 cnt:Integer;
begin
   If TryStrToInt(Edit1.Text, Start) then
      begin
         cnt := 0;
         Dec(Start);
         while cnt < 9 do
            begin
               inc(Start);
               SSTart := IntToStr(start);
               cnt := 0;
               while length(SSTart) > 1 do
                  begin
                  inc(cnt);
                  SStart := QMult(SStart);
                  end;
            end;
         Showmessage(IntToStr(Start));
      end;
end;