var

a:array[0..20]of boolean;

i,k,n,t:integer;

procedure print(n:integer);

begin

case n of

0:write('0');

1:write('2(0)');

2:write('2');

3:write('2+2(0)');

4:write('2(2)');

5:write('2(2)+2(0)');

6:write('2(2)+2');

7:write('2(2)+2+2(0)');

8:write('2(2+2(0))');

9:write('2(2+2(0))+2(0)');

10:write('2(2+2(0))+2');

11:write('2(2+2(0))+2+2(0)');

12:write('2(2+2(0))+2(2)');

13:write('2(2+2(0))+2(2)+2(0)');

14:write('2(2+2(0))+2(2)+2');

end;

end;

begin

readln(n);

k:=-1; t:=-1;

fillchar(a,sizeof(a),false);

while n>0 do

begin

inc(k);

if odd(n) then a[k]:=true;

if (t=-1)and(odd(n)) then t:=k;

n:=n div 2;

end;

for i:= k downto t do

if a[i] then

begin

write('2('); print(i); write(')');

if it then write('+');

end;

end.

一组错误，一组长了