Question

viết chương trình nhập vào 3 số nguyên a, b, c khác nhau từ bàn phím. In ra màn hình 3 số đó theo thứ tự tăng dần

Answer 1

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.