var a,b: real;
f,g:text;
Procedure swap(var x,y:real);
var tam:real;
begin
tam:=x; x:=y; y:=tam;
end;
begin
assign(f,’bai6_2.inp’); reset(f);
assign(g,’bai6_2.out’); rewrite(g);
readln(f,a);
readln(f,b);
swap(a,b);
write(g,'Sau khi doi a =',a:3:1);
write(g,'Sau khi doi b =',b:3:1);
close(f); close(g);
end.
|
|