Question

Hãy nhập chương trình pacal để giải bài toán

Trăm trâu trăm cỏ

Trâu đứng ăn năm

Trâu nằm ăn ba

Lụ khụ trâu già

Ba con một bó

Answer 1

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