Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
20
9
program sort_numbers;
var a, b, c, d: integer;
begin
writeln('Nhập 4 số nguyên:');
readln(a, b, c, d);
if (a > b) then
begin
a := a + b;
b := a - b;
a := a - b;
end;
if (a > c) then
begin
a := a + c;
c := a - c;
a := a - c;
end;
if (a > d) then
begin
a := a + d;
d := a - d;
a := a - d;
end;
if (b > c) then
begin
b := b + c;
c := b - c;
b := b - c;
end;
if (b > d) then
begin
b := b + d;
d := b - d;
b := b - d;
end;
if (c > d) then
begin
c := c + d;
d := c - d;
c := c - d;
end;
writeln('Các số đã được sắp xếp tăng dần: ', a, ' ', b, ' ', c, ' ', d);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin