Was ist daran falsch? kleiner Quelltext zu Wundersame Zahlen, Zahl gerade oder ungera

[Blup]

Deine Funktion soll eigentlich nur mit ganzen Zahlen arbeiten.
Die Variable ist aber für Kommazahlen("Float") deklariert.
Der Operator "div" arbeitet aber nur mit ganzen Zahlen.

Ändere die Deklartion deiner Variablen auf "Integer" und "StrToFLoat" zu "StrToInt".

Delphi-Quellcode:

   if Odd(n) then  // ist n ungerade ?
     {...}         // wenn die Bedingung erfüllt ist: tu dies
   else
     {...}         // andernfalls: mach das
   ;               // Ende der Anweisung