数的计数
imported
notes
var sum:integer; function num(x:integer):integer; var i,s:integer; begin if x=1 then num:=1 else begin s:=0; for i:=1 to (x div 2) do s:=s+num(i); num:=s+1 end end;{num} begin readln(a); writeln(num(a)); end.
November 23, 2010
var sum:integer; function num(x:integer):integer; var i,s:integer; begin if x=1 then num:=1 else begin s:=0; for i:=1 to (x div 2) do s:=s+num(i); num:=s+1 end end;{num} begin readln(a); writeln(num(a)); end.