program qiqi;

var a:array[1..10000,1..10000]of longint;

i,j,n,t:longint;

begin

readln(n);

n:=n+1;

a[1,1]:=1;

t:=0;

for i:=2 to n do

begin

a:=1;

a:=1;

for j:=2 to i-1 do

a:=a+a;

end;

for i:=1 to n do

for j:=1 to i do

if a mod 2=0 then t:=t+1;

writeln(t);

end.

大哥大姐们，我的为什么才22分？