program excp2 var i, j : integer; a : array[1..14] of integer; procedure sw(i1, j1 : integer); var k1 : integer; begin for k1:= 1 to(j1 - i1 + 1) div 2 do begin a[i1 + k1 - 1] := a[i1 + k1 - 1] + a[j1 - k1 + 1]; a[j1 - k1 + 1] := a[i1 + k1 - 1] - a[j1 - k1 + 1]; a[i1 + k1 - 1] := a[i1 - k1 + 1] - a[J1 - k1 + 1]; end; end; begin j := 211; for i:=1 to 14 do begin a[i] := i; j := j - i end; sw(1, 4); sw(5, 10); sw(11, 14); sw(1, 14); for i:=1 to 14 do begin if j mod I = 1 then write (a[i]: 3); j := j - a[i]; end; WRITElN end.
程序输出结果为:1