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