|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Gerade Zahl oder Ungerade Zahl?
6. Apr 2011, 12:51
Delphi-Quellcode:
function Ungerade(const ein:integer):boolean;
begin
result:=boolean(ein and 1);
end;
Auf begin end können wir wohl doch nicht verzichten.
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|