Viết chương trình giải 2 bài toán cổ sau: Vừa gà vừa chó Bó lại cho tròn 36 con 100 chân chẵn (Bao nhiêu gà,chó) Trăm trâu trăm cỏ Trâu đứng ăn năm Tr

0 bình luận về “Viết chương trình giải 2 bài toán cổ sau: Vừa gà vừa chó Bó lại cho tròn 36 con 100 chân chẵn (Bao nhiêu gà,chó) Trăm trâu trăm cỏ Trâu đứng ăn năm Tr”

1. uses crt;
   var c,g : integer;
   begin clrscr;
   for c:=1 to 36 do
   for g:=1 to 36 do
   if (g+c=36) and (g*2+c*4=100) then begin
   write(‘So ga la :’,g);  writeln;
   write(‘So cho la :’, c); end;
   readln
   end.

   uses crt;
   var t1,t2,t3 : integer;
   begin clrscr;
   for t1:=1 to 100 do
   for t2:=1 to 100 do
   for t3:=1 to 100 do
   if (t1+t2+t3=100) and (t1*5+t2*3+t3/3=100) then
   writeln(‘Trau dung la :’,t1,’trau nam la :’, t2, ‘trau gia la :’, t3);
   readln
   end.

   Bình luận

2. program BiBo212;
   uses crt;
   var x,y,z:integer;
   begin
           clrscr;
          // For x:=0 to 36 do
           {For y:=0 to 36-x do
           if (x+y=36)and (2*x+4*y=100) then
                                      begin
                                           writeln(‘So ga la: ‘,x);
                                           writeln(‘So cho la: ‘,y);
                                      end;}
           //Bai trau
                   For x:=0 to 100 do
                   For y:=0 to 100 do
                   For z:=0 to 100 do
                   if (x+y+z=100)and(5*x+3*y+z/3=100) then
                                   begin
                                           writeln(‘Trau dung : ‘,x);
                                           writeln(‘Trau nam : ‘,y);
                                           writeln(‘Trau gia: ‘,z);
                                           writeln;
                                   end;

           readln;
   end.

   Bình luận