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.