Даны две числовые переменные a и b. Необходимо присвоить переменной a значение переменной...

Question

Даны две числовые переменные a и b.
Необходимо присвоить переменной a значение
переменной b,
переменной b необходимо
присвоить значение переменной a, без
использования дополнительных переменных.

Answer 1

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