比赛代码 - COGS

比赛	20140713上午练习	评测结果	AAAAAAAATT
题目名称	A类B类数	最终得分	80
用户昵称	lll德玛西亚	运行时间	3.292 s
代码语言	Pascal	内存使用	0.15 MiB
提交时间	2014-07-13 10:06:06

显示代码纯文本

var
a,b,c,i,j,k,m,n,y,l:longint;
begin
assign(input,'abnum.in');
assign(output,'abnum.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
m:=i;
while m<>0 do
begin
c:=m mod 2;
if c=1 then inc(y) else inc(l);
m:=m div 2;
end;
if y>l then inc(a) else inc(b);
y:=0;
l:=0;
end;
writeln(a,' ',b);
close(input);
close(output);
end.