Question

Viết chương trình để tìm lời giải cho bài toán sau:

Trong giỏ vừa thỏ vừa gà,
Một trăm cái cẳng bốn ba cái đầu.

Hỏi có mấy gà mấy thỏ?

Answer 1

program bai_giai;
uses crt;
var tho,ga:integer;
begin
    clrscr;
    for tho:=0 to 43 do
        begin
            ga:=43-tho;
            if ga*2+tho*4=100 then writeln(ga,' con ga va ',tho,' con tho');
        end;
    readln;
end.