aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Even-or-odd/PascalABC.NET/even-or-odd.pas Normal file
View file

@ -0,0 +1,14 @@
function IsOddRemainder(x: integer) := x mod 2 <> 0;
function IsEvenRemainder(x: integer) := x mod 2 = 0;
function IsOddBitwise(x: integer) := x and 1 = 1;
function IsEvenBitwise(x: integer) := x and 1 = 0;
begin
var x := 3;
Println(x.IsEven,x.IsOdd); // Standard Predicates
Println(IsEvenRemainder(x),IsOddRemainder(x));
Println(IsEvenBitwise(x),IsOddBitwise(x));
end.