var money:real;
     num:array[1..4]of integer;

 procedure init;
  var i:integer;
  begin
   read(money);
   for i:=1 to 4 do
    read(num[i]);
   readln;
  end;

 procedure main;
  var i,j,k:integer;
      sum:real;
  begin
   for i:=num[1] downto 0 do
    for j:=num[2] downto 0 do
     for k:=num[3] downto 0 do
      begin
       sum:=money-0.25*i-0.1*j-0.05*k;
       if sum<0 then continue;
       if (sum=0) or
          (sum/0.01<=num[4]) then begin
                                   writeln(i,' ',j,' ',k,' ',sum/0.01:0:0);
                                   exit;
                                  end;
      end;
   writeln('NO EXACT CHANGE');
  end;

 begin
  repeat
   init;
   main;
  until eof;
 end.

• Re:我也是用枚举的啊！为什么错？(Pascal) (83) harrywy 2005-08-19 19:51:55
  • Re:我也是用枚举的啊！为什么错？(Pascal) (96) harrywy 2005-08-19 20:06:54
• 这个方法！不超? (0) harrywy 2005-08-19 19:52:26
• 如果这题E精度的话就把A*100,然后按整数来做 (830) JiangLY 2005-08-19 19:56:29
• 是的，我还以为他就这么做的 (0) My_loves 2005-08-19 20:05:40
  • 我就这么做的 (0) harrywy 2005-08-19 20:08:05