Question

Помогите пожалуйста!!!Нужно придумать алгоритм обмена значениями без использования 3 вспомогательной переменной

Answer 1

Var a,b: integer;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  a:=a+b;
  b:=a-b;
  a:=a-b;
  writeln('a = ',a,'  b = ',b);
end.

a = 15
b = 20
a = 20  b = 15

Answer 2

Держи
var a,b,c:real; 
begin 
Writeln('A='); 
read(a); Writeln('B='); 
read(b); 
c:=b; 
b:=a; a:=c; 
Writeln('A=',a); 
Writeln('B=',b); 
End.