Bài Tập: Cho ba số a,b,c nhập từ bàn phím. a) Hãy in kết quả ra màn hình theo thứ tự tăng dần b) Hãy in kết quả ra màn hình theo thứ tự giảm dầ

0 bình luận về “Bài Tập: Cho ba số a,b,c nhập từ bàn phím. a) Hãy in kết quả ra màn hình theo thứ tự tăng dần b) Hãy in kết quả ra màn hình theo thứ tự giảm dầ”

1. a ,uses crt;

   var a, b, c: real; begin
   write(‘Nhap a = ‘);

   readln(a);
   write(‘Nhap b = ‘);

   readln(b);
   write(‘Nhap c = ‘);

   readln(c);
   if a>=b then begin
      if b>=c then {a  >=b >= c}
      writeln(a:20:4, b:20:4, c:20:4)
      else if c>=a then {c >= a >= b}
      writeln(c:20:4, a:20:4, b:20:4)
      else { a ≥ c ≥ b}
      writeln(a:20:4, c:20:4, b:20:4);
      end
      else { b > a, coi như điều kiện b >=a đúng }
      begin
      if a>=c then { b >= a >= c}
   writeln(b:20:4, a:20:4, c:20:4)
   else if c>=b then {c >= b >= a}
   writeln(c:20:4, b:20:4, a:20:4)
   else {b >= c >= a}
   writeln(b:20:4, c:20:4, a:20:4);
   end;
   readln;
   end.

   Bình luận