1:
2:
3:
4:

if Zahl mod 2 = 0 then
  ShowMessage('Gerade')
else
  ShowMessage('Ungerade');					

1:
2:
3:
4:
5:

if odd(Zahl)
then
  ShowMessage('Ungerade')
else
  ShowMessage('Gerade');					

1:
2:
3:
4:
5:

if Zahl and 1=1
then
  ShowMessage('Ungerade')
else
  ShowMessage('Gerade');					

1:
2:
3:
4:
5:

if boolean(zahl and 1)
then   
  ShowMessage('Ungerade')   
else   
  ShowMessage('Gerade');					

1:
2:
3:

if boolean((zahl shl 31) shr 31) then
  'ungerade' else
  'gerade'					

1:
2:
3:
4:
5:
6:
7:
8:

function IsEven(i : integer) : boolean;
 var s : string;
     c : char;
begin
 s := IntToStr(i);
 c := s[Length(s)];
 Result := (c='0') or (c='2') or (c='4') or (c='6') or (c='8');
end;					

1:
2:
3:
4:
5:

function gerade(i: integer): boolean;
begin
  while i >= 1 do dec(i,2);
  result := boolean(i+1);
end;					

1:
2:
3:
4:
5:
6:

function gerade(i: integer): integer;
begin
  if i >= 1 then
    result := gerade(i-2) else
    result := i+1;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function Gerade(Zahl: Integer): Boolean;
var
  Zahlen: array[0..High(Integer)] of Boolean;
  I: Integer;
begin
  for I := 1 to (High(Integer) div 2) do
    Zahlen[I * 2] := True;
  Result := Zahlen[abs(Zahl)];
end;					

1:
2:
3:
4:

function IsOdd(i : integer) : boolean; register;
ASM
 AND EAX,1
end;					

1:
2:
3:
4:
5:

function IsEven(i : integer) : boolean;
begin
 if i=0 then Result:=true else
 Result := not IsEven(Pred(i));
end;					

1:

odd					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function ungerade(const I : Integer) : Boolean;
Var
 J, A : Integer;
begin
 A := random(abs(I))+1;
 while A >= 2 do
 begin
  B := random(A) and not 1;
  For J := 0 to abs(A) do
   B := B xor (2*random(random(J))+1);
  if arccos(cos(B*pi)) > pi/2 then
   A := A div 2
  else
   A := A*3+1;
 end;
 Result := I = A or I and -2;
end;