На два входа черного ящика цепочки из двоичных чисел 1 и 0. если хотя бы на один вход подается 1, то на выходе образуется 1, в противном случае, на выходе будет 0. какая цепочка из 1 и 0 образуется на выходе, если на входы одновременно числа: 00111010 и 10100001? а) 01000100; б) 10111011; в) 10111001; г) 10111010.

Вариант б, тут все легко

Program ip; var s,s1: string;       i,j,x,err: integer;           f: boolean; begin readln(s); i: =1; j: =1; f: =true; while (j< 4) and f do begin   while s[i]< > '.' do     begin      s1: =s1+s[i];         inc(i);     end;     val(s1,x,err);     f: =x< 256;     delete(s1,1,length(s1));     inc(j); end; if f then begin while i< =length(s1) do   begin   s1: =s1+s[i];   inc(i);   end; f: =x< 256; end; if f then writeln(1) else writeln(0); end.

Var   d: string;   i, p, s, x, y, err: integer; begin   x : = 0; y : = 0;   for i : = 1 to 5 do   begin       readln(d);       p : = pos(' ', d);       val(copy(d, p + 1, length(d) - p + 1), s, err);       d : = copy(d, 1, p - 1);       case d of           'north': y : = y + s;           'south': y : = y - s;           'east': x : = x + s;           'west': x : = x - s       end   end;   writeln(x, ' ', y) end. тестовое решение: east 10 north 12 west 5 south 2 west 7 -2 10