Написать программу обмена переменных x и y , без использования дополнительных велечин , ( это надо делать в pascal)

202

395

Посмотреть ответы 2

Ответы на вопрос:

vikakotova3

Информатика

4,8(61 оценок)

Var a,b: integer; begin a: =50; b: =-20; { начальное присванивание } writeln('исходные значения: a=',a,', b=',b); a: =a+b; b: =a-b; a: =a-b; writeln('обмен после "арифметического" способа: a=',a,', b=',b); a: =50; b: =-20; { начальное присванивание } a: =a xor b; b: =a xor b; a: =a xor b; writeln('обмен после "логического" способа: a=',a,', b=',b) end. результат выполнения программы: исходные значения: a=50, b=-20 обмен после "арифметического" способа: a=-20, b=50 обмен после "логического" способа: a=-20, b=50