Поменять местами значения х и у не используя дополнительную…

Задание:

Поменять местами значения х и у не используя дополнительную переменную. (Pascal)

Решение:

Var x,y: integer; Begin x: =20; y: =40; x: =x+y; y: =x-y; x: =x-y; Write (x,',y); End.

Знаете другой ответ?

Отправить свой ответ