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à?
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
By Alice
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.
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}}$