Question

Trăm trâu trăm bó cỏ

Trâu đúng ăn 5

Trâu nằm ăn 3

Trâu già 3 con ăn 1 bó

Hãy viết chương trình làm tất cả các tổ hợp của trây đứng, trâu nằm và trâu già.

Sỉ dụng while.....do

Giúp nhaaaaa

Answer 1

Bài này hình như chỉ dùng for thôi

uses crt;
var i,j,k:byte;
begin
clrscr;
for i:=1 to 20 do
for j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3=100 then writeln('Trau dung ',i,' trau nam ',j,' trau gia ',k);
end;
readln;
end.