Информатика, кто шарит

1) 1∨X&0=1∨0=1

2)X&X&1=X&1=X

3)0&X∨0=0∨0=0

4)0∨X&X=0∨X=X

Объяснение:

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.