Даны два числа

[Joker<777>]

Даны два числа, составить программу обмена значений этих переменных

[_-Re@l-_]

Ну если правильно понял то так:

Uses CRT;
Var
    X,Y,A,B:Real;
Begin
        Clrscr;
        Readln(X,Y);
        A:=X;B:=Y;
        X:=B;Y:=A;
        Write('X = ',X:5:2,'    Y = ',Y:5:2);
        Readln;
End.

[Tronix]

PHP код:

Var
      a, b : integer;
Begin
      Write('Enter A: ');
      ReadLn(a);
      Write('Enter B: ');
      ReadLn(b);
      WriteLn('A = ',A,'; B = ',B);
      a:=a+b;
      b:=a-b;
      a:=a-b;
      WriteLn('A = ',A,'; B = ',B);
      readln;
End. 


Как вариант, заменить минусы и плюсы на XOR:

PHP код:

      a:=a xor b;
      b:=b xor a;
      a:=a xor b; 


[Serge_Bliznykov]

ну зачем же ДВЕ дополнительные переменные.
"Классическим" алгоритмом предполагается использование ОДНОЙ дополнительной (временной) переменной.
подход такой. Пусть есть переменные X и Y
тогда, что бы обменять содержимое, объявляем переменную (например, Temp такого же типа, как переменные X и Y) и выполняем такой код:

  Temp := X;
  X := Y;
  Y := Temp;

p.s. существуют ещё "хакерские" способы обмена значение вообще БЕЗ использования дополнительных переменных. Но это не очень красиво с точки зрения наглядности/простоты кода + не со всеми типами данных подобный трюк прокатит.
Поэтому вот так

 var X, Y : integer;
begin
  X := 100;
  Y := -777;
  X := X xor Y;
  Y := X xor Y;
  X := X xor Y;
  WriteLn('New X = ',X:1, ' New Y = ',Y:1);
  readln;
end.

делать НЕ НАДО!


______________
p.s. Сорри, пока писал свой пост, прозевал пост от Tronix
Поэтому убедительно прошу моё сообщение не считать ответом на этот пост!! Все совпадения кода случайны!

[_-Re@l-_]

ну зачем же ДВЕ дополнительные переменные.

Ну, на самом деле, чё хочу-то ворочу. А вот верите вы или нет, но я этот якобы классический ход знаю, использовал при сортировке массивов.