From e14476b64148f02531bbd641d012cf835aa3826a Mon Sep 17 00:00:00 2001 From: deadmarshal Date: Thu, 5 May 2022 18:42:48 +0430 Subject: Added solutions to challenge 163 --- challenge-163/deadmarshal/pascal/ch1.pas | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 challenge-163/deadmarshal/pascal/ch1.pas (limited to 'challenge-163/deadmarshal/pascal/ch1.pas') diff --git a/challenge-163/deadmarshal/pascal/ch1.pas b/challenge-163/deadmarshal/pascal/ch1.pas new file mode 100644 index 0000000000..a594f21561 --- /dev/null +++ b/challenge-163/deadmarshal/pascal/ch1.pas @@ -0,0 +1,25 @@ +program Ch1; + +{$mode objfpc} +uses + SysUtils,Types; +var + Arr,Arr2:TIntegerDynArray; + +function SumBitwiseOperator(Arr:TIntegerDynArray):Integer; +var + I,J:Integer; +begin + Result := 0; + for I := 0 to High(Arr) do + for J := I+1 to High(Arr) do + Result := Result + Arr[I] and Arr[J]; +end; + +begin + Arr := TIntegerDynArray.Create(1,2,3); + Arr2 := TIntegerDynArray.Create(2,3,4); + WriteLn(SumBitwiseOperator(Arr)); + WriteLn(SumBitwiseOperator(Arr2)); +end. + -- cgit