Tìm kiếm:

Bài này chắc duyệt cũng ra :D

Câu 2 thì bạn dùng 3 vòng for do như sau:


for i:= 0 to 2 do
for j:= 0 to 5 do
for k:= 0 to 10 do
if 5*i + 2*j + k = 10 then writeln(i,' ', j,' ',k);

Nhưng sao bài nào bạn cũng like thế??

Bài này dùng BFS

Từ ô xuất phát, bạn đánh dấu tất cả các ô đến được từ nó là 1, sau đó đánh dấu các ô đến được từ những ô 1 là 2, tt cho đến khi đến ô E hoặc ko thể đánh dấu thêm ô nào nữa. Số...

Hàm SetLength hình như là để cấp phát bộ nhớ cho mảng động thì phải.

Câu lệnh read(k); sửa lại thành readln(k); là được