aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Prüft, ob die angegebene Zahl ungerade ist.

Deklaration

function odd(zahl:integer);

Beispiel

var zahl:integer;
begin
writeln('Nennen Sie eine beliebige ganzzahlige Zahl');
readln(zahl);
writeln;
if odd(zahl) then write ('Die Zahl ',zahl,' ist ungerade');
if not odd(zahl) then write('Die Zahl ',zahl,' ist gerade');
readln;
end.

---