Lập trình để giải bài toán cổ sau:
Vừa gà vừa chó.
Bó lại cho tròn.
Ba mươi sáu con,
Một trăm chân chằn.
Hỏi bao nhiêu con mỗi loại?
Trả lời:
program Tim_ga_cho;
uses crt;
var ga, cho: integer;
Begin
clrscr;
for cho:= 1 to 24 do
begin
ga:= 3 6 - cho,
if ga + 2*cho = 50 then writeln('Ga:',ga,' Cho:',cho); end;
readln
End.