[BT Tin 11 ] Lập CT giải 1 bài toán cổ

[Hz0]

Lập chương trình giải bài toán cổ:
'' Vừa gà vừa chó
Bó lại cho tròn
36 con
100 chân chẵn
Hỏi bao gà, bao chó ? ''

Mình cảm ơn trước.!! ^^

 

[_ỐC_Đảo_Mới_]

1.

program gacho;
uses crt;
var a:integer; {1 biến là đủ)
begin
clrscr;
for a:=1 to 36 do {tốt nhất là cứ xét a từ 1 đến 36 cho tổng quát)
begin
if ((4*a+2*(36-a))=100)then {rõ ràng a+b=36 rồi đâu cần xét nữa)
begin
writeln ('so cho la', a);
writeln ('so ga la', 36-a);
end;
end;
readln;
end.

2.

program gacho;
uses crt;
var a,b:integer;
begin
clrscr;
for a:=1 to 24 do
Begin
b:=36-a;
if (4*a+2*b=100)then
Begin
writeln ('so ga la', b);
writeln ('so cho la', a);
end;
end;
Readln
End.

3.

program ga_cho;
uses crt;
Var ga,chan:byte;
BEGIN
clrscr;
ga:= 1;
while not(chan = 100) do
begin
ga:=ga+1;
chan:= 2*ga + 4*(36-ga);
end;
writeln('co ',ga,'con ga');
writeln('co ',36-ga,'con cho');
readln;
END.

ok nhé bạn