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

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.!! ^^

View more random threads:

• Học cách thiết kết web bằng joomla
• CPU1, CPU1 core, CPU0 core là gì
• Config.msi la gì vậy các pro
• Góp ý cấu hình máy tính
• Help me!!Ổ cứng bị ốm rùi!!
• Giúp tớ về key Tuneup 2011!!!! :((
• Photoshop
• Lỗi cách chữ trong 2003?
• Mạng máy tính
• Sự cố máy

Nguồn: http://diendankienthuc.net.

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 Nguồn: http://diendankienthuc.net.