精华区文章阅读

发信人: sino (茶水先生), 信区: Algorithm
标  题: ZSUCPC 2000中山同志们的题解--第2试第4题
发信站: 哈工大紫丁香 (2001年08月27日10:11:34 星期一), 站内信件

发信人: splutter (呆子), 信区: ACMICPC
标  题: [合集]第二试第四题                     forgetful
发信站: 逸仙时空 Yat-sen Channel (Tue Jun 19 05:26:05 2001), 站内信件
------------------------------------------------------
monster@argo (不再堕落，不再�) 于Fri May 11 23:08:03 2001)
提到：
转信站: argo
function GetOneCount(I: Integer): Integer;
var
   Count: Integer;
begin
   Count := 0;
   while I > 0 do
   begin
      if I mod 2 = 1 then Inc(Count);
      I := I shr 1;
   end;
   GetOneCount := Count;
end;
function GetZeroCount(I: Integer): Integer;
var
   Count: Integer;
begin
   Count := 0;
   while I > 0 do
   begin
      if I mod 2 = 0 then Inc(Count);
      I := I shr 1;
   end;
   GetZeroCount := Count;
end;
var
   M, I, C: Integer;
begin
   C := 0;
   repeat
   begin
      Write('M = ');
      Readln(M);
   until (M >= 1) and (M <= 1030);
   for I := 1 to M do
      if GetZeroCount(I) > GetOneCount(I) then Inc(C);
   Writeln(C);
end.
------------------------------------------------------
wishes (风中的绳子) 于Fri May 11 23:12:33 2001提到：
题目搞错了呢，M是小于10的30次方的
------------------------------------------------------
monster
faint...它写成了1030...
------------------------------------------------------
legend (爱老婆培训班毕�) 于Fri May 11 23:18:11 2001提到：
  所以不能那样算，呵呵
------------------------------------------------------
monster@argo (不再堕落，不再�) 于Fri May 11 23:18:48 2001)
提到：
转信站: argo
当然
------------------------------------------------------
mysunshine (雨一直下) 于Fri May 11 23:20:55 2001提到：
ft...
怎么做呀？
【在 legend (爱老婆培训班毕�) 的大作中提到: 】
:   所以不能那样算，呵呵
: 【在 monster (不再堕落，不再�) 的大作中提到: 】
: : faint...它写成了1030...
------------------------------------------------------
Holmaming (更加风采动朝端) 于Fri May 11 23:23:39 2001提到：
    该题的解法相当精妙，不是我等能想出来的，建议各位还是不要浪费时间吧。^_^
【在 monster@argo (不再堕落，不再�) 的大作中提到: 】
: 【在 mk (逐风) 的大作中提到: 】
: : 第四题  01统计（50分）
: : 近来有关的专家们在进行一项有关二进制数的研究，研究涉及的一个统计问题令他
们大
: : 1个数多，就称n为A类数。
: :  …………
: function GetOneCount(I: Integer): Integer;
: var
:    Count: Integer;
: begin
:    Count := 0;
:  …………
------------------------------------------------------
legend (爱老婆培训班毕�) 于Fri May 11 23:24:57 2001提到：
   重大打击~~~~~~~~
   不如贴出来吧？  ^_^
【在 Holmaming (更加风采动朝端) 的大作中提到: 】
:     该题的解法相当精妙，不是我等能想出来的，建议各位还是不要浪费时间吧。^_
^
: 【在 monster@argo (不再堕落，不再�) 的大作中提到: 】
: : function GetOneCount(I: Integer): Integer;
: : var
------------------------------------------------------
mysunshine (雨一直下) 于Fri May 11 23:25:10 2001提到：
kuang faint
【在 Holmaming (更加风采动朝端) 的大作中提到: 】
:     该题的解法相当精妙，不是我等能想出来的，建议各位还是不要浪费时间吧。^_
^
: 【在 monster@argo (不再堕落，不再�) 的大作中提到: 】
: : function GetOneCount(I: Integer): Integer;
: : var
------------------------------------------------------
monster@argo (不再堕落，不再�) 于Fri May 11 23:26:48 2001)
提到：
转信站: argo
【在 Holmaming (更加风采动朝端) 的大作中提到: 】
:     该题的解法相当精妙，不是我等能想出来的，建议各位还是不要浪费时间吧。^_
^
: 【在 monster@argo (不再堕落，不再�) 的大作中提到: 】
: : function GetOneCount(I: Integer): Integer;
: : var
10^k次方以下的个数可以用排列组合算出来，问题是10^k ~ m这段
------------------------------------------------------
Holmaming (更加风采动朝端) 于Fri May 11 23:26:52 2001提到：
    呵呵，问jast吧。
【在 legend (爱老婆培训班毕�) 的大作中提到: 】
:    重大打击~~~~~~~~
:    不如贴出来吧？  ^_^
: 【在 Holmaming (更加风采动朝端) 的大作中提到: 】
: :     该题的解法相当精妙，不是我等能想出来的，建议各位还是不要浪费时间吧。
^_^
------------------------------------------------------
legend (爱老婆培训班毕�) 于Fri May 11 23:29:33 2001提到：
  他不在，你既知其精妙自然知道怎么做吧。不如一展身手的说：）
【在 Holmaming (更加风采动朝端) 的大作中提到: 】
:     呵呵，问jast吧。
: 【在 legend (爱老婆培训班毕�) 的大作中提到: 】
: :    重大打击~~~~~~~~
: :    不如贴出来吧？  ^_^
------------------------------------------------------
Holmaming (更加风采动朝端) 于Fri May 11 23:31:52 2001提到：
    hoho，明天考试，没时间长篇大论的说。
【在 legend (爱老婆培训班毕�) 的大作中提到: 】
:   他不在，你既知其精妙自然知道怎么做吧。不如一展身手的说：）
: 【在 Holmaming (更加风采动朝端) 的大作中提到: 】
: :     呵呵，问jast吧。

--
撷取生活中每一朵清新的浪花,智慧的浪花 ..汇成音乐的海洋.

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]

Algorithm 版 (精华区)