Nhập 2 số bất kì x và y. Hãy thực hiện việc hoán đổi giá trị của x và y. Vd: x=7.2, y=6 =>x=6 =>y=7.2

2 câu trả lời

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.

var x,y,t:real;

begin

write('Nhap x: '); readln(x);

write('Nhap y: '); readln(y);

t:=x;

x:=y;

y:=t;

writeln('x= ',x);

write('y= ',y);

readln;

end.