Var x,y: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=x+y;
y:=x-x;
x:=y;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

Có 2 cách là nay vs cái gửi trc nhưng cách này ổn hơn nha
Var x,y,t: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=t;
y:=x;
y:=t;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

#include <bits/stdc++.h>

using namespace std;

long long x,y,tam;

int main()

{

cin>>x>>y;

cout<<"x truoc khi doi la:"<<x<<endl;

cout<<"y truoc khi doi la:"<<y<<endl;

tam=x;

x=y;

y=tam;

cout<<"x sau khi doi la:"<<x<<endl;

cout<<"y sau khi doi la:"<<y;

return 0;

}

uses crt;

var x,y:integer;

begin

readln(x,y);

writeln(x,' ',y);

wrieln(y,' ',x);

readln;

end.

cái đề của bạn nó rất là khặp khiển đấy

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x>>y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

viết trên pascal được hong ạ?

Thuật toán đổi giá trị theo thứ tự có giá trị không giảm:

Bước 1: Nhập giá trị của x, y.

Bước 2: Nếu x > y thì chuyển tới bước 3. Ngược lại chuyển tới bước 4.

Bước 3: Tráo đổi giá trị của x và y.

Thuật toán tráo đổi giá trị:

Bước 1: Khai báo một biến cùng kiểu dữ liệu với x,y là tg.

Bước 2: Gán giá trị tg:=a;

Bước 3: Gán giá trị a:=b;

k mk đi xong mk sẽ nhắn tin trả lời cho bạn