Question

VCT hoán đổi 2 giá trị của biến x và y

Answer 1

program hoan_doi;

var x,y,z:integer;

begin

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

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

z:=x;

x:=y;

y:=z;

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

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

readln

end.

Answer 2

program Hoandoi;
uses crt;
var a,b,t: integer;
BEGIN
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
t:=a;
a:=b;
b:=t;
writeln('Ket qua sau khi hoan doi: a = ',a,' , b = ',b);
readln;
END.

Answer 3

var x,y,z:integer;

begin

Write('nhap x=');

Readln(x);

Write (' nhap y =');

Readln(y);

z:=x;

x:=y;

y:=z;

Write ('gia tri x la: ',x);

Write ('gia tri y la : ',y);

Readln;

end.