Program tinh_so_luong;
uses crt;
var bi,chi,vo,th:integer;
begin
clrscr;
th:=0;
for bi:=1 to 10 do {Gia su An muon mua toi da 10 cay but bi}
for chi:=1 to 3 do {Gia su An muon mua toi da 3 cay but chi}
for vo:=1 to 20 do {Gia su An muon mua toi da 20 quyen vo}
if 2*bi+5*chi+4*vo=100 then
begin
th:=th+1;
writeln('Truong hop thu ',th);
writeln('So but bi An mua duoc la ',bi);
writeln('So but chi An mua duoc la ',chi);
writeln('So vo An mua duoc la ',vo);
writeln('--------------------------');
end;
readln;
end.
Cái này là rất nhiều trường hợp nhé bạn.
Bạn cho mình cụ thể muốn lấy bao nhiêu trường hợp để mình làm, chứ giải ra nhiều trường hợp lắm.
Hoặc là bạn cho tối đa An muốn mua bao nhiêu vở, bút bi, bút chì,... cũng được.