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.