Question

B1:

Trăm trâu trăm cỏ

Trâu đứng ăn năm

Trâu nằm ăn ba

Trâu già ba con một bó.

Hỏi có bao nhiêu con mỗi loại?

(Lập pascal)

Answer 1

Answer 2

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.