Bài 1 em nghĩ mih` có thể dùng Heap + tham lam để làm bài này O(P log M) hoặc nếu ko bik Heap mih` vẫn có thể tham lam với O(P*M). Ý tưởng là tính thời gian làm xong 1 sản phẩm ở mỗi máy ta sẽ tính thế này nếu mak` với máy i vẫn chưa tới hạn bảo dưỡng thì thời gian làm chính = Ti còn nếu đã tới hạn nghĩ dưởng thì thời gian làm là Ti+Bi r` ta tìm Min trong tất cả các thời gian máy nào có thời gian nhỏ nhất thì cho sản phẩm vào máy đó r` lại cập nhật lại

Cảm ơn các anh đã nhắc nhở !

Bài 4 Em nghĩ có một cách làm ko dùng đến tạo chuỗi
Ta có thể giải quyết 2 vấn đề sau :
vấn đề 1 là xác định chữ số thừ s trong M
vấn đề 2 là chữ số còn lại sau khi xóa r lần là chữ số thứ mấy trong M
Cả 2 vấn đề này có thể giải quyết mak ko dùng đến chuỗi
Vấn đề 1 ta giải quyết như sau :
Tìm t là số chữ số của số chứa chữ số thứ s
Ta có thể xác định dc l là số chữ số từ 1 đến 9999...(t-1 chữ số 9) khi ghép lại
a = s-l chính là số thứ tự của số có t chữ số mak` chứa chữ số s rui` tới đây thì chỉ cần div mod j` đó để tìm dc chữ số thứ s trong chuỗi M và tất cả công đoạn này tốn độ phức tạp rất thấp < O(50)
Vấn đề thứ 2 có thể giải quyết bằng cách là truy ngược lên dần từ Mr với Mr là chuỗi sau khi biến đổi r lần và còn lại 1 chữ số. Dpt phần này là
O(r)
Dpt toàn bài nếu cài khéo sẽ nhỏ hơn O(100)

Ai có lời giải cho các bài trê không vậy, giúp em với, em cũng đang cần, nếu có thể thì chỉ em luôn thuật toán. Em cảm ơn !

Bài 4 nè sai thì đừng đả gạch...
var
n,i:longint;
s,n1:ansistring;
BEGIN
readln(n);
For i:=1 to n do
begin
str(i,n1);
s:=s+n1;
end;
while length(s)<> 1 do
begin
for i:=length(s) downto 1 do
if i mod 2 =0 then delele(s,i,1);
if length(s) =1 then break;
for i:=length(s) downto 1 do
if i mod 2 <> 0 then delete(s,i,1);
end;
write(s);
END.