Pascal

Modified: Wednesday, 22-12-2021 07:00 AM

Đổi chổ 2 số cho nhau


program hoan_vi;
var x,y:integer;{so nguyen}
function swap(x,y:integer):integer;
var temp:integer;
begin
   temp:=x;
   x:=y;
   y:=temp;
   writeln('trong ham: x= ',x,' y= ',y);
end;
begin
    write('nhap x: ');readln(x);
    write('nhap y: '); readln(y);
    swap(x,y);
    write('ngoai ham: x= ',x,' y= ',y);
    readln;
end.