Đăng nhập để hỏi chi tiết


Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program candy;
var
n, i, x, y, u, v, t, cost: integer;
begin
readln(n);
for i := 1 to n do
begin
readln(x, y, u, v, t);
if (u + t * y) < (v + t * x) then
cost := u * x + (u + t * y) * (y - ((x * y) div (x + (y * t))))
else
cost := v * y + (v + t * x) * (x - ((x * y) div (x + (y * t))));
writeln(cost);
end;
end.
```
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin