Lời giải :

B1: nhập 2 biến x,y

B2: Nếu x>y tráo đổi gía trị của x và y, chuyển đến bước 3 . Nếu y > x thì 2 số đã theo thứ tự có giá trị không giảm , chuyển đến bước 3

B3: In ra kết qủa x, y và kết thúc thuật toán 

1: Hoán đổi giá trị hai biến x và y

Chúng ta sẽ gán biến trung gian tam cho x, xong rồi gán biến trung gian tam đó cho y; rồi sau đó gán y ngược lại cho x, và xuất kết quả ra-đó chính là x và y sau khi hoán đổi cho nhau.

2: Tìm giá trị lớn nhất của dãy A

Chúng ta sẽ gán biến ln cho a[1], sau đó sẽ quét qua các phần tử trong mảng xem thử có phần tử nào lớn hơn ln thì gán ln cho phần tử đó. Sau cùng xuất ln ra, ta được số lớn nhất cần tìm.

Program hoan_doi;

uses crt;

var x,y,temp:Integer;

begin

x:=3;y:=7;

Writeln('Gia tri cua x truoc khi doi: ',x);

Writeln('Gia tri cua y truoc khi doi: ',y);

temp:=x;

x:=y;

y:=temp;

Writeln('Gia tri cua x sau khi hoan doi: ',x);

Writeln('Gia tri cua y sau khi hoan doi: ',y);

Readln();

end.

Mô tả: Khai báo 3 biến kiểu số nguyên

-Ta gán 3 cho biến x, gán 7 cho biến y

-Sau đó gán giá trị của biến x cho biến temp (để lưu trữ giá trị của biến x);

-Ta gán giá trị của biến y cho biến x (lúc này giá trị của biến x đã bị đổi);

-Rồi gán giá trị của biến temp cho biến y (Giá trị không bị thay đổi theo biến x bởi vì trước khi thay đổi giá trị của biến x thành giá trị của biến y ta đã gán giá trị trước đó của biến x cho biến temp)

2:

#include <bits/stdc++.h>

using namespace std;

 double xm,ix,iy,r,ma,mb;

int main()

{

cin>>ix>>iy;

cin>>r;

cin>>ma>>mb;

xm=sqrt((ix-ma)*(ix-ma)+(iy-mb)*(iy-mb));

if (xm==r) cout<<"phai";

else cout<<"khong phai";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

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

cout<<'b truoc khi doi la:"<<b<<endl;

swap(a,b);

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

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

return 0;

}

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;

int main()
{

cin>>x>>y;

swap(x,y);

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

return 0;

}

1.
t:=x;
x:=y;
y:=t;
2. kết quả: x=20 ó