Viết chương trình để giải bài toán cổ sau : trăm trâu,trăm cỏ trâu đứng ăn năm trâu nằm ăn ba lụ khụ trâu già ba con một bó hỏi có bao nhiêu con trâu

0 bình luận về “Viết chương trình để giải bài toán cổ sau : trăm trâu,trăm cỏ trâu đứng ăn năm trâu nằm ăn ba lụ khụ trâu già ba con một bó hỏi có bao nhiêu con trâu”

1. uses crt;
   var a,b,c:longint;
   begin
   clrscr;
      for a:=1 to 100 do
         for b:=1 to 100 do
            begin
               c:=100-(a+b);
               if(a*5+b*3+(c div 3)=100)and(c mod 3=0) then writeln(a,’ ‘,b,’ ‘,c);
            end;
   readln
   end.

   Bình luận

2. Program ConTrau;

   Uses Crt;

   Var i,j,k:byte;

   Begin

   Clrscr;

   Textcolor(Green);

   For i:=1 to 20 do

   For j:=1 to 33 do

   begin

   k:=100-i-j;

   if 5*i+3*j+k/3 = 100 then

   Writeln(‘Trau dung ‘,i,’ trau nam ‘,j,’ trau gia ‘,k);

   end;

   Textcolor(Yellow);

   Writeln

   Readln

   $\boxed{\text{Cho Shi hay nhất nha}}$

   Bình luận