Question

Viết chương trình pascal đổi giá trị của hai biến x và y
( dùng gán x:=z y:=x z:=y )

Answer 1

var x,y,z:real;

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.

Answer 2

program bai1;

var x,y,z:longint;

f1,f2:text;

const fi='bai1.inp';

fo='bai1.out';

begin

assign(f1,fi);reset(f1);

assign(f2,fo);rewrite(f2);

readln(f1,x);readln(f1,y);

z:=x;

x:=y;

y:=z;

write(f2,x,' ',y);

close(f1);close(f2);

end.