Gerade Zahl oder Ungerade Zahl?

[DeddyH]

Wenn andere schon mit Assembler kommen, sei mir zumindest eine kleine Kürzung erlaubt (ohne Fehlerbehandlung):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const Ausgabe: array[Boolean] of string = ('gerade!', 'ungerade!');
begin
  Label1.Caption := Ausgabe[Odd(StrToInt(Edit1.Text))];
end;