Question

Вводятся величины X,Y целого типа. Разработать схему алгоритма для обмена значений величин. Необходимо использовать вспомогательную величину Т. Протестировать алгоритм для X=5 и Y=-11.

Answer 1

Program Pr1;

uses crt;

var x,y,t:integer;

Begin

clrscr;

readln(x,y);

t:=x;

x:=y;

y:=t;

writeln(x,y);

end.

Answer 2

var
x,y,t:integer;
begin
write('x=');
readln(x);
write('y=');
readln(y);
t:=x;
x:=y;
y:=t;
writeln('x=',x,' y=',y);
readln;
end.