Nhập 2 số nguyên a,b, hoán 2 số khi a>b Hướng dẫn sử dụngn1 biến trung gian để lưu kết quả tạm.

1 câu trả lời

var a,b,t:longint;

begin

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

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

if a>b then

begin

t:=a;

a:=b;

b:=t;

end;

readln;

end.