记录编号	139311	评测结果	AAAAAAAAAA
题目名称	[NOIP 1995]A类B类数	最终得分	100
用户昵称	TerryLam	是否通过	通过
代码语言	Pascal	运行时间	0.537 s
提交时间	2014-11-08 16:45:15	内存使用	152.75 MiB

program abnum;
var
  n,i,z,a,b:longint;
  x,y:array[0..20000001] of longint;
begin
  assign(input,'abnum.in');
  reset(input);
  readln(n);
  close(input);
  a:=1;
  b:=0;
  x[0]:=0;
  y[0]:=0;
  x[1]:=0;
  y[1]:=1;
  for i:=2 to n do
    begin
      x[i]:=x[i shr 1]+((i+1) mod 2);
      y[i]:=y[i shr 1]+(i mod 2);
      if y[i]>x[i] then inc(a) else inc(b);
    end;
  assign(output,'abnum.out');
  rewrite(output);
  writeln(a,' ',b);
  close(output);
end.