Question

nhập vào 2 số nguyên a,b. nếu a>b thì gấp đôi 2 số, ngược lại thì hoán đổi giá trị 2 số

 

Answer 1

Uses crt;

var i,a,b,tam:integer;

Begin

 clrscr;

 Write('Nhap 2 so a,b: ');readln((a,b);

 If a>b then

   begin

   a:=a*2;

   b:=b*2;

   End

 else if a<b

   begin

   tam:=a;

   a:=b;

   b:=tam;

   End;

 readln;

End.