var
ans,c,t:longint;
a:array[1..8] of byte;
begin
a[1]:=1; ans:=0;
repeat
ans:=ans+1;
a[1]:=a[1]+1;
c:=a[1] div 2;
t:=1;
while c>0 do
begin a[t+1]:=a[t+1]+c; a[t]:=a[t] mod 2; t:=t+1; c:=a[t] div 2; end;
until a[8]=1;
writeln(ans);
end.
2＾7＋1个dh 如果不明白再问
2＾7＋1个zdhl 如果不明白再问
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024