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