Files
Gusek_MoGya/gyakorlatok/csarnok.mod
2024-10-29 19:15:26 +01:00

10 lines
223 B
Modula-2

var a >= 0, integer;
var b >= 0, integer;
s.t. lemez: a*4000 + b*5000 <= 32000;
s.t. acel: a*3 + b*3 <= 24;
s.t. tetofedo: a*300 + b*200 <= 2000;
s.t. beton: a*200 + b*100 <= 1600;
maximize nyereseg: a*4000 + b*5000;
end;