写个小算法

Question

给你一串字符串12345678
转换成 34127856 这样的
就是每两个字符互换位置 
脑子笨 转不过来

Answer 1

for step 2
swap s[i] s[i+1]

Answer 2

procedure TForm1.test(str:string);
var temp:string;
begin
  temp := '';
  while Length(str) >= 4 do
  begin
    temp := temp + Copy(str,3,2);
    temp := temp + Copy(str,1,2);
    Delete(str,1,4);
  end;
  temp := temp + str;
  ShowMessage(temp);
end;
procedure TForm1.BtnClick(Sender: TObject);
begin
  test(Txt.Text);
end;第一次在网上做这类题，这是我的做法