Làm sao để có câu trả lời hay nhất?
08/04/2025
08/04/2025
```pascal
program NgayHoiSach;
var
n, t, a, b, i: LongInt;
k: array[1..200000] of LongInt;
inspiration: LongInt;
begin
// Đọc dữ liệu đầu vào
ReadLn(n, t, a, b);
for i := 1 to n do
Read(k[i]);
inspiration := 0;
// Duyệt qua từng cuốn sách
for i := 1 to n do
begin
if t >= a then
begin
// Đọc toàn bộ cuốn sách
inspiration := inspiration + k[i];
t := t - a;
end
else if t >= b then
begin
// Chỉ đọc trang bìa
t := t - b;
end
else
break; // Không còn thời gian để đọc sách nào nữa
end;
// In ra kết quả
WriteLn(inspiration);
end.
```
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
Top thành viên trả lời