Viết chương trình để giải bài toán cổ sau : 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ó hỏi có bao nhiêu con trâu đứng,trâu nằm,trâu già?
2 câu trả lời
Program ConTrau;
Uses Crt;
Var i,j,k:byte;
Begin
Clrscr;
Textcolor(Green);
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;
Textcolor(Yellow);
Writeln
Readln
$\boxed{\text{Cho Shi hay nhất nha}}$
uses crt;
var a,b,c:longint;
begin
clrscr;
for a:=1 to 100 do
for b:=1 to 100 do
begin
c:=100-(a+b);
if(a*5+b*3+(c div 3)=100)and(c mod 3=0) then writeln(a,' ',b,' ',c);
end;
readln
end.
