Как-то даже не хочется размышлять, как можно было это решить по-нормальному...
var s:string; a:array[1..4] of byte; i:integer; begin read(s); for i:=1 to length(s) do begin if s[i]='(' then a[1]:=i; if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end end; for i:=length(s) downto 1 do begin if s[i]=')' then a[4]:=i; if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end end; s:=copy(s,1,a[1])+copy(s,a[3]+1,a[4]-a[3]-1)+copy(s,a[2],a[3]-a[2]+1)+copy(s,a[1]+1,a[2]-a[1]-1)+copy(s,a[4],length(s)-a[4]+1); write(s); end.
Устройства ввода подразделяются на следующие категории:
устройства ввода графической, звуковой и видео информации;механические устройства ввода;непрерывные устройства ввода (устройства, предоставляющие входные данные непрерывно, например, мышь, радиоприёмник, ТВ-тюнер);устройства ввода для пространственного использования (например, двухмерная мышь, трёхмерный навигатор).
Компьютерные указывающие устройства ввода по управления курсором делят на следующие категории:
указывающие устройства прямого ввода (управление осуществляется непосредственно в месте видимости курсора (например, сенсорные панели и экраны));непрямые указывающие устройства (например, трекбол,компьютерная мышь).
var s:string; a:array[1..4] of byte; i:integer;
begin
read(s);
for i:=1 to length(s) do
begin if s[i]='(' then a[1]:=i; if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end end; for i:=length(s) downto 1 do
begin if s[i]=')' then a[4]:=i; if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end end; s:=copy(s,1,a[1])+copy(s,a[3]+1,a[4]-a[3]-1)+copy(s,a[2],a[3]-a[2]+1)+copy(s,a[1]+1,a[2]-a[1]-1)+copy(s,a[4],length(s)-a[4]+1);
write(s);
end.