var x, y, dx, dy, cnt, n, m : longint; begin read(n, m); x := 1; y := 1; dx := 1; dy := 1; cnt := 0; while (cnt <> 2) do begin cnt := 0; x := x + dx; y := y + dy; if (x = 1) or (x = n) then begin cnt := cnt + 1; dx := -dx; end; if (y = 1) or (y = m) then begin cnt := cnt + 1; dy := -dy; end; end; writeln(x, ' ', y); end.
输入1:4 3
输出1:1(3 分)
输入2:2017 1014
输出2:2(5 分)