Viết chương trình giải 2 bài toán cổ sau:
Vừa gà vừa chó
Bó lại cho tròn
36 con
100 chân chẵn (Bao nhiêu gà,chó)
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ó
Viết chương trình giải 2 bài toán cổ sau: Vừa gà vừa chó Bó lại cho tròn 36 con 100 chân chẵn (Bao nhiêu gà,chó) Trăm trâu trăm cỏ Trâu đứng ăn năm Tr
By Gianna
uses crt;
var c,g : integer;
begin clrscr;
for c:=1 to 36 do
for g:=1 to 36 do
if (g+c=36) and (g*2+c*4=100) then begin
write(‘So ga la :’,g); writeln;
write(‘So cho la :’, c); end;
readln
end.
uses crt;
var t1,t2,t3 : integer;
begin clrscr;
for t1:=1 to 100 do
for t2:=1 to 100 do
for t3:=1 to 100 do
if (t1+t2+t3=100) and (t1*5+t2*3+t3/3=100) then
writeln(‘Trau dung la :’,t1,’trau nam la :’, t2, ‘trau gia la :’, t3);
readln
end.
program BiBo212;
uses crt;
var x,y,z:integer;
begin
clrscr;
// For x:=0 to 36 do
{For y:=0 to 36-x do
if (x+y=36)and (2*x+4*y=100) then
begin
writeln(‘So ga la: ‘,x);
writeln(‘So cho la: ‘,y);
end;}
//Bai trau
For x:=0 to 100 do
For y:=0 to 100 do
For z:=0 to 100 do
if (x+y+z=100)and(5*x+3*y+z/3=100) then
begin
writeln(‘Trau dung : ‘,x);
writeln(‘Trau nam : ‘,y);
writeln(‘Trau gia: ‘,z);
writeln;
end;
readln;
end.