const x:array[1..6]of real=(5,2,3.5,1.7,1,5.1);var a,b,c,d,e,f,h:integer;
k1,k2:real;
y:array[1..6] of integer;begin
k1:=0;
k2:=0;
for a:=0 to 1 do begin
y[1]:=a;
for b:=0 to 1 do begin
y[2]:=b;
for c:=0 to 1 do begin
y[3]:=c;
for d:=0 to 1 do begin
y[4]:=d;
for e:=0 to 1 do begin
y[5]:=e;
for f:=0 to 1 do begin
y[6]:=f;
for h:=1 to 6 do begin
if y[h]=1 then begin
k1:=k1+x[h];
if (k1>k2)and(k110 then
k1:=k2;
end;
end;
end;
end;
end;
end;
end;end;writeln(k2:8:2);end.或var max,sum:extended;
a1,a2,a3,a4,a5,a6,b1,b2,b3,b4,b5,b6:boolean;beginmax:=0;for a1:=false to true do beginfor a2:=false to true do begin
for a3:=false to true do begin
for a4:=false to true do begin
for a5:=false to true do begin
for a6:=false to true do begin
sum:=0;
if a1 then sum:=sum+5;
if a2 then sum:=sum+2;
if a3 then sum:=sum+3.5;
if a4 then sum:=sum+1.7;
if a5 then sum:=sum+1;
if a6 then sum:=sum+5.1;
if (summax) then begin
max:=sum;
b1:=a1;
b2:=a2;
b3:=a3;
b4:=a4;
b5:=a5;
b6:=a6;
end;
end;
end;
end;
end;end;end;if b1 then writeln('5t','');if b2 then writeln('2t','');if b3 then writeln('35t','');if b4 then writeln('1.7t','');if b5 then writeln('1t','');if b6 then writeln('5.1t','');writeln('max:',max:1:1)end. |
