Question

Viết chương trình Hoán đổi giá trị x,y được nhập từ bàn phím

Answer 1

uses crt;

var x,y:integer;

begin

clrscr;

write('x='); readln(x);

write('y='); readln(y);

writeln('gia tri truoc khi doi cua x la: ',x);

writeln('gia tri truoc khi doi cua y la: ',y);

x:=x+y;

y:=x-y;

x:=x-y;

writeln('gia tri sau khi doi cua x la: ',x);

writeln('gia tri sau khi doi cua y la: ',y);

readln;

end.

Answer 2

uses crt;

var x,y:integer;

begin

clrscr;

write('x='); readln(x);

write('y='); readln(y);

writeln('gia tri truoc khi doi cua x la: ',x);

writeln('gia tri truoc khi doi cua y la: ',y);

x:=x+y;

y:=x-y;

x:=x-y;

writeln('gia tri sau khi doi cua x la: ',x);

writeln('gia tri sau khi doi cua y la: ',y);

readln;

end.