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.

12 tháng 11 2017

Program hoan_doi;

uses crt;

var hd p ,q: integer;

begin

clrscr;

write('nhap p ='); readln(p);

write('nhap q ='); readln(q);

write('gia tri ban dau cua p = ',p,' va ' q = ',q);

hd:=p;

p:=q;

q:=hd;

writeln;

writeln('gia tri cua p va q sau khi hoan doi la p =',p,' va q =',q);

readln;

end.

12 tháng 11 2017

bạn có thể tham khảo Hỏi đáp Tin học

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.

11 tháng 10 2021

uses crt;

var x,y:integer;

begin

readln(x,y);

writeln(x,' ',y);

wrieln(y,' ',x);

readln;

end.

 


 

11 tháng 10 2021

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

 

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;

}

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>b) then writeln(b,' ',a)

else writeln(a,' ',b);

readln;

end.

5 tháng 4 2021

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

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 ạ?