Условие Даны два числа N и K. Требуется найти, какая цифра стоит в двоичном представлении числа N в K-м разряде. В задаче запрещено использовать арифметические операции +, -, *, / и %, а также операторы if / switch и тернарную операцию. Формат входных данных В одной строке вводятся два целых числа N и K (0 ⩽ K ⩽ 30, 0 ⩽ N < 231 Разряды нумеруются от младшего к старшему начиная с нуля. Формат выходных данных Требуется вывести одно целое число ­(0 или 1) — k-й разряд числа n в двоичной системе счисления. входные данные 21 1 21 2 выходные данные 0 1

Var k, i, n:Integer ;

A:array [1..100]of Integer ;

Begin

Write('Введите кол-во элементов в массиве ') ;

Read(n) ;

For i:=1 to N do begin

A[i]:=random(100)-50;

Write(' ', A[i]) ;

End;

K:=0;writeln;

Write ('кол-во отрицательных элементов ') ;

For i:=1 to N do begin

If A[i]<0 then k:=k+1;

End;

Write(k);k:=0;

Writeln;

Write ('сумма четных элементов ') ;

For i:=1 to N do begin

If A[i] mod 2=0 then k:=k+a[i];

End;

Write(k) ;k:=1;

Writeln ;

Write('произведение элементов в интервале [1;20] ');

For i:=1 to N do begin

If (a[i]>0)and(a[i]<21) then k:=k*a[i];

End;

Write(k) ;

End.