NH

nhập hai số nguyên a,b, hoán vị 2 số khi a>b. giúp tui với :))

 

AL
30 tháng 11 2021 lúc 9:14

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 (2)

Các câu hỏi tương tự
NB
Xem chi tiết
NB
Xem chi tiết
H24
Xem chi tiết
NM
Xem chi tiết
PA
Xem chi tiết
NN
Xem chi tiết
BL
Xem chi tiết
TK
Xem chi tiết
PU
Xem chi tiết