Nhập 2 số nguyên a, b, hoán vị 2 số khi a>b.

0 bình luận về “Nhập 2 số nguyên a, b, hoán vị 2 số khi a>b.”

1. uses crt;

   var a,b,tg:integer;

   BEGIN

   clrscr;

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

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

   if a>b then

   begin

   tg:=a;

   a:=b;

   b:=tg;    {tg có nghĩa là trung gian nha}

   end;

   writeln(a,‘ ‘,b);

   readln;

   END.

   Bình luận