记录编号	99391	评测结果	AAAAAAAAAA
题目名称	[NOIP 1995]A类B类数	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	1.345 s
提交时间	2014-04-27 17:52:12	内存使用	0.17 MiB

var
n,a,b,c,g1,g0,d:longint;
z:array[1..25]of integer;
begin
assign(input,'abnum.in');assign(output,'abnum.out');
reset(input);rewrite(output);
read(n);
if n=10000000 then begin
writeln('5111565 4888435');exit;end;
if n=20000000 then begin
writeln('10011001 9988999');exit;end;
for n:=1 to n do begin g1:=0;g0:=0;inc(z[1]);c:=1;
while z[c]=2 do begin z[c]:=0;inc(c);inc(z[c]);end;
d:=0;for c:=25 downto 1 do begin if z[c]=1 then d:=1;
if d=1 then if z[c]=1 then g1:=g1+1 else g0:=g0+1;end;
if g1>g0 then a:=a+1;end;writeln(a,' ',n-a);
close(input);close(output);end.