Question

Cho hai biến x và y. Hãy mô tả thuật toán đổi giá trị của các biến nói trên (nếu cần) để x và y theo thứ tự có giá trị không giảm.

Answer 1

program doi_gia_tri;

uses crt;

var

x,y,tam:longint;

begin

writeln('Nhap x = '); readln(x);

writeln('Nhap y = '); readln(y);

if (x<y) then

begin

tam:=x;

x:=y;

y:=tam;

end;

write(x,' ',y); readln;

end.