Zahlen symmetrisch

[dominikkv]

ohje... das geht mir hier zu schnell^^
und wenn dann noch der erste beitrag editiert wird...

aber zum thema:

Delphi-Quellcode:

isSymmetrisch(Zahl: String{!}): Boolean;
var
  Anfang, Ende: Integer;
begin
  Anfang := 1;
  Ende := length(Zahl);
  if not odd(length(Zahl)) then
    begin
      while (Zahl[Anfang] = Zahl[Ende]) and (Anfang < Ende) do
        begin
          Inc(Anfang);
          Dec(Ende);
        end;
      result := Anfang > Ende;
    end else
      result := False;
end;

hab mal so erfunden^^