var a,b,c,d,e,i,j,r,q,z,x,a1,a2,a3,a4:longint;t:real;s:boolean;
begin
while not eof do begin
readln(t,b,c,d,e);
s:=false;
z:=100000;
a:=round(t*100);
if b>a div 25 then b:=a div 25;
if c>a div 10 then c:=a div 10;
if d>a div 5 then c:=a div 5;
if e>a then c:=a;
for i:=b downto 0 do
for j:=c downto 0 do
for r:=d downto 0 do
for q:=e downto 0 do
if i*25+j*10+r*5+q=a then begin
s:=true;
x:=i+j+q+r;
if x<z then begin
z:=x;a1:=i;a2:=j;a3:=r;a4:=q;end;
end;
if not s then writeln('NO EXACT CHANCE') else writeln(a1,' ',a2,' ',a3,' ',a4);
end;
end.

• Re:请教各位高手:我的程序为何WA?感激不尽! (9) liangyutianlyt 2007-01-12 21:18:30