A/ viết trương trình in ra hai số tự nhiên a và b khác nhau theo thứ tự tăng dần ( với a và b được nhập vào từ bàn phím) B/ viết trương trình in ra hai số tự nhiên a và b khác nhau theo thứ giảm dần ( với a và b được nhập vào từ bàn phím)

Câu 1:

program cau1;

uses crt;

var a,b: integer;

begin

clrscr;

write('nhap a ='); readln(a);

write('nhap b ='); readln(b);

if a < b then writeln(a, ' ', b ) else

write(b ,' ', a);

readln;

end.

Câu 2 :

program cau2;

uses crt;

var a,b: integer;

begin

clrscr;

write('nhap a ='); readln(a);

write('nhap b ='); readln(b);

if a > b then writeln(a, ' ', b ) else

write(b ,' ', a);

readln;

end.

#mình gửi đáp án nhá . Nếu sai sót cmt lại cho mình biết nha . 

#nhớ vote cho mình 5 sao và tym , ctrhn nhá

A/ viết trương trình in ra hai số tự nhiên a và b khác nhau theo thứ tự tăng dần ( với a và b được nhập vào từ bàn phím)

program bai_giai;

uses crt;

var a,b:longint;

begin

clrscr;

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

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

readln

end.

B/ viết trương trình in ra hai số tự nhiên a và b khác nhau theo thứ giảm dần ( với a và b được nhập vào từ bàn phím)

program bai_giai;

uses crt;

var a,b:longint;

begin

clrscr;

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

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

readln

end.