Question

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 có bao nhiêu con

Answer 1

Program Tinh_ga_cho;

Var ga,cho:byte;

Begin

  For ga:=1 to 36 do

   For cho:=1 to 36 do

    begin

     if (ga+cho=36)and(2*ga+4*cho=100) then

 begin

         Writeln('So ga la',ga:3,' con va so cho la ',cho:3,' con');

 exit;

      end;

    end;

Readln;

End.