比赛 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.