pascal假设在周末舞会上,男士们和女士们进入舞厅时,各自排成一队.跳舞开始时,依次从男队和女队的队头上各

pascal假设在周末舞会上,男士们和女士们进入舞厅时,各自排成一队.跳舞开始时,依次从男队和女队的队头上各

var s1,s2:string; i,j,k:integer;
begin
  readln(s1); readln(s2);
  j:=length(s1); k:=length(s2);
  if j>k then begin i:=j; j:=k; k:=i end;
  write(s1[1],s2[1]);
  for i:=2 to j do write(' ',s1[i],s2[i]);
  writeln;
  writeln(k-i);
  if length(s1)    else writeln(s1[j+1]);
end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！