Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự Cứu tôi với mai tôi thi rồi!!! Làm chính xác 100% giúp tôi luôn

2 câu trả lời

Thứ tự giảm dần:
Var a,b:Longint;
 Begin
  Readln(a,b);
  If a>b then Write(a,' ',b)
   Else Write(b,' ',a);
  Readln;
 End.

Thứ tự tăng dần:

Var a,b:Longint;
 Begin
  Readln(a,b);
  If a>b then Write(b,' ',a)
   Else Write(a,' ',b);
  Readln;
 End.

Đáp án:

uses crt;

var a,b:longint;

begin

clrscr;

write('Nhap a,b: '); readln(a,b);

if a>b then write(b,' ',a) else write(a,' ',b);

readln;

end.


@cloudie