K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

17 tháng 10 2018

Đơn giản bạn sẽ dùng một biến trung gian c nha bạn để chúng ta có thể hoán đổi 2 giá trị, tức nếu không có trung gian thì khi gán trực tiếp giá trị sẽ bị mất

program hoandoi_ab;

var a,b,c:integer;

begin

readln(a,b);

writeln(a, ' ',b);

c:=a;

a:=b;

b:=c;

writeln(a, ' ',b);

readln

end.

18 tháng 10 2018

có phải pascal k nhỉ

uses crt;

var a,b,tam:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if a>b then

begin

tam:=a;

a:=b;

b:=tam;

end;

writeln(a);

writeln(b);

readln;

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;

}

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

1:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a+b;

return 0;

}

2:

#include <bits/stdc++.h>

using namespace std;

double s,r;

int main()

{

cin>>r;

s=r*r*pi;

cout<<fixed<<setprecision(2)<<s;

return 0;

}

Bài 2:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln(t);

readln;

end.

15 tháng 10 2021

#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;

}

18 tháng 12 2022

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.

18 tháng 12 2022

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.