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.
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;
}
#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;
}
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âu 1:
uses crt;
var a:array[1..5]of integer;
max,i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 5 do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Câu 2:
uses crt;
var a:array[1..6]of integer;
min,i:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to 6 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đơ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.
có phải pascal k nhỉ