Odd

Adam Boduch
Odd
Moduł: System
```delphi function Odd(X: Longint): Boolean; ``` [[Delphi/Funkcje|Funkcja]] Odd zwraca wartość [[Delphi/True]] jeżeli liczba określona w parametrze X jest nieparzysta, [[Delphi/False]] jeżeli jest parzysta.
program Foo;

{$APPTYPE CONSOLE}

const
  Bool: array [Boolean] of String = ('parzysta', 'nieparzysta');

var
  X : Integer;

begin
  Randomize;
  X := Random(1000) + 1;
  Writeln('Liczba ', X, ' jest ', Bool[Odd(X)]);
  Readln;
end.

Zobacz też:

0 komentarzy