Символом f обозначено одно из указанных ниже логических выражений от трех аргументов: x, y, z. дан фрагмент таблицы истинности выражения f: x y z f 0 0 0 0 1 1 0 1 1 0 0 1 1) ¬x∨¬y∨z 3)x∧¬y∧¬z 2)x∨y∨z 4)x∧y∧z

Похоже, что только 2-ое подходит

F: =1; g: =1; for i: =1 to m+m do         if(i mod 2=0)then                begin                   c[i]: =b[f];                     f: =f+1;               end             else                    begin                       c[i]: =a[g];                       g: =g+1;                   end;

//зачем прикручивать дополнительный if, когда можно сделать while? var ar: array[1..10] of integer; i: integer; procedure swap(var a,b: integer); var c: integer; begin; c: =a; a: =b; b: =c; end; begin; randomize; writeln('array: '); for i: =1 to 10 do   begin;   ar[i]: =random(11);   write(ar[i]: 4);   end; i: =1; while i< 10 do begin; swap(ar[i],ar[i+1]); i: =i+2; end; writeln; writeln('final array: '); for i: =1 to 10 do write(ar[i]: 4); end.