var

a,c:array[1..2000,1..4000] of char;

si,i,j,n,z:integer;

begin

c[1,2]:='/'; c[1,3]:='\';

c[2,1]:='/'; c[2,2]:='_'; c[2,3]:='_'; c[2,4]:='\';

readln(n);

z:=2;

for si:=2 to n do

begin

fillchar(a,sizeof(a),' ');

for i:=1 to z do

for j:=1 to z*2 do

a:=c;

for i:=1 to z do

for j:=1 to z*2 do

a:=c;

for i:=1 to z do

for j:=1 to z*2 do

a:=c;

c:=a;

z:=z*2;

end;

for i:=1 to z do

begin

for j:=1 to i+z+1 do

write(c);

writeln;

end;

end.

├ 测试数据 01：答案错误...程序输出比正确答案长

├ 测试数据 02：答案错误...程序输出比正确答案长

├ 测试数据 03：答案错误...程序输出比正确答案长

├ 测试数据 04：答案错误...　

├ 标准行输出 ...　　 ...

　├ 错误行输出 ... /__...

├ 测试数据 05：答案错误...程序输出比正确答案长