Question

1)В переменные А и В записаны целые числа (оператором присваивания, например, А:=20; В:=13). Поменяйте числа в этих переменных местами. Воспользуйтесь третьей переменной – С.2)Выполните задание 13 без использования третьей переменной С.Помогите,пожалуйста

Answer 1

Var
  a, b, c: integer;

begin
  { Первый способ }
  a := 20; b := 13;
  c := a;
  a := b;
  b := c;
  Writeln('a=', a, ', b=', b);
  { Второй способ }
  a := 20; b := 13;
  a := a + b;
  b := a - b;
  a := a - b;
  Writeln('a=', a, ', b=', b);
end.

Тестовое решение:

a=13, b=20
a=13, b=20