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

15 Янв 2020 в 19:43
124 +1
0
Ответы
1

program SwapXY;
var
x, y: integer;

begin
x := 5;
y := 10;

writeln('Before swapping:');
writeln('x = ', x);
writeln('y = ', y);

x := x + y;
y := x - y;
x := x - y;

writeln('After swapping:');
writeln('x = ', x);
writeln('y = ', y);

end.

18 Апр 2024 в 20:10
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир