[Realtek]

Определить является ли заданное четырехзначное число перевертышем(Например 1234 и 4321)

[lmikle]

Код:

function IsNumberReversable(N : Integer) : Boolean;
var
  s : String;
  i : Integer;
begin
  Result := True;
  S := IntToStr(N);
  For I := 1 To Length(S) div 2 Do
    Begin
      Result := S[i] = S[Length(S)-I+1];
      If Not Result Then Exit;
    End;
end;

Как-то так...